Array "For each" - Schleife

[Heinz1980]

Hi, hab folgendes eigentlich simples problem.
Ich moechte ein Array mit einer For each schleife ausgeben.
Ich benutze VBA in Excel.
Das Array ist 2 Dimensional und ich will nur eine sogenannte "Spalte" ausgeben x(1,1)...x(2,1)...x(3,1)...usw

x ist das array

mein Code:

For Each x(i,1) In x
Debug.Print x(i, 1)
Next

Leider geht das nicht, und ich hab schon saemtliche verschiedene
Versuche durchgefuehrt.

Vielen Dank
Gruss
Heinz

[Thomas Frank]

Hallo Heinz,

for each bedeutet für alle Elemente. Wenn du also nicht alle ausgeben willst, musst du es anders angehen. Das Beispiel gibt dir alle Werte der zweiten Dimension (Index beginnt bei 0) aus. Für de erste Dimension musst du nur die 1 gegen eine 0 austauschen.

  Dim lArrayIndex As Long
  
  For lArrayIndex = LBound(x, 1) To UBound(x, 1)
    Debug.Print x(lArrayIndexi, 1)
  Next lArrayIndex

LBound liefert dir die untere Grenze eines Arrays, UBound die obere Grenze.

Gruß
Thomas

[Heinz1980]

Ok klappt, vielen Dank