Array ! ! !
16.02.2005 14:37:28
Maria
Hallo Leute
Do
Worksheets("Übersicht").Select
ZeilenArray = Array("Cells(4, Zelle)")
Zelle = Zelle + 1
If Cells(4, Zelle) = "" Then Exit Do
Loop
ich möchte mit diesem Code erreichen, dass die Werte in den Zellen einen nach dem anderen in die Array Index eingelesen werden.
Wenn ich aber am Schluss mit "MsgBox ZeilenArray(0)" den Array(0) auslesen möchte, wird als Wert die letzte Zelle angezeigt(die letzte die durch die Schleife ging).
Cool wäre Array(0) wird angezeigt Inhalt "A4", Array(1) Inhalt"A5"...usw!
ich hoffe ich habe mich nicht komliziert ausgedrückt