Office: Array definieren

Maffner · 25. März 2004

Hallo,

ich möchte in VBA ein eindimensionales Array dimensionieren (mit 20 Elementen).

Wenn ich mein Array so definiere, kriege ich eine Fehlermeldung:
testar = Array(3)
For I = 0 To 2
testar(I) = I
Next I
"Index ausserhalb des gültigen Bereiches" bei testar(I) = I

aber so gehts wenn ich jedes Element einzeln aufführe:
testar = Array(1, 2, 3)
For I = 0 To 2
testar(I) = I
Next I

Das sollte aber doch auch anders gehen, ohne dass ich bei meinem Array schreiben muss myarray=(1,2,3,4,...20) ?

Gruss,
H Maffner

:)

Hondo · 27. März 2004

Hallo,
es fehlt die Deklaration des Arrays:
Dim testar As String

Gruß Andreas

Maffner · 27. März 2004

Dim testar As Variant
- hab ich drinstehen, aber die Fehlermeldung kommt trotzdem.

Eigentlich sollte es doch so auch gehen?
Ich kann keinen Fehler finden *confused.gif*

H Maffner

uwek · 27. März 2004

Hallo,

entweder ...

Code:

Dim Arr()
Dim i As Integer
For i = 0 To 5
ReDim Arr(i)
Arr(i) = i + 1
Debug.Print Arr(i)
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder ...

Code:

Dim Arr(6)
Dim i As Integer
For i = 0 To 5
Arr(i) = i + 1
Debug.Print Arr(i)
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Steffen0815 · 27. März 2004

Meinst du:

Dim i As Integer
Dim testar(20) As Integer
For i = 0 To 19
testar(i) = i
Next i

Maffner · 27. März 2004

Danke, das geht *biggrin.gif*

Gruss
H Maffner

Nouba · 27. März 2004

Array ist eine Funktion zum Befüllen von eindimensionalen Variant-Arrays. Herkömmlich deklarierte Arrays werden mit Dim dimensioniert, wobei man sowohl statische als auch dynamische Arrays anlegen kann.
Code:

Dim iArr1(2) As Integer '// ein Integer-Array mit 3 Elementen.
Dim iArr2() As Integer '// diesem Array muß mit der ReDim-Funktion Speicherplatz zugewiesen werden
Dim vArr As Variant '// kann als Array verwendet werden
Dim i As Integer

iArr1(0) = 34
iArr1(1) = 44
iArr1(2) = 54

ReDim iArr2(2) '// jetzt hat iArr2 auch 3 Elemente
iArr2(0) = 34
iArr2(1) = 44
iArr2(2) = 54

'// Speicherplatz für weitere 3 Elemente reservieren
'// «Preserve» sorgt dafür, dass alte Werte erhalten bleiben.
ReDim Preserve iArr2(5)
iArr2(3) = 34
iArr2(4) = 44
iArr2(5) = 54

'// Variant-Array befüllen
vArr = Array(34. 44, 54)

For i = LBound(iArr1) To UBound(iArr1)
Debug.Print iArr1(i)
Next i

For i = LBound(iArr2) To UBound(iArr2)
Debug.Print iArr2(i)
Next i

For i = LBound(vArr) To UBound(vArr)
Debug.Print vArr(i)
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weitere nützliche Infos und Funktionen zu Arrays findest man unter Array-Routinen und auch unter VB2theMax Code Bank - Arrays

Office: Array definieren

Array definieren

Array definieren

Array definieren

Array definieren - Similar Threads - Array definieren

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Array aus Excel Tabelle einlesen Word VBA

Summenteilergebnis eines Arrays als Array darstellen

Formel bei Veränderung von dynamischem Array "mitziehen"?

Array-Funktion mit VBA in Zelle schreiben