Auf Array zugreifen
16.09.2008 11:52:00
Reinhard
ich hänge seit längerem an einer Stelle fest, ich lese einen Zellenbereich in eine Arrayvariable ein durch
B = Range("A1:A" & Anz)
sofern B überhaupt eine Arrayvariable ist, so langsam blicke ich überhaupt nicht mehr durch, hier ein Beispielcode:
Option Explicit
Sub test()
Dim B, Anz, Z
Anz = 1000
B = Range("A1:A" & Anz)
Range("D1:D" & Anz) = B 'klappt
For Z = 0 To Anz
MsgBox UBound(B) 'klappt, 1000 wird angezeigt
MsgBox B(Z) 'Laufzeitfehler 9, Index außerhalb
Next Z
End Sub
Auch Versuche mit
msgbox B(1,1)
msgbox B(0,0)
und was mir noch so einfiel brachten mich nicht weiter.
Wie lautet der Code damit ich mir B(1), B(2) usw. anschauen kann?
Danke ^ Gruß
Reinhard