Zellen in Array einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zellen in Array einlesen von: Laura
Geschrieben am: 16.02.2005 15:06:30

Hallo Leute

Do
Worksheets("Übersicht").Select
ZeilenArray = Array("Cells(4, Zelle)")
Zelle = Zelle + 1
If Cells(4, Zelle) = "" Then Exit Do
Loop

Bitte wenns geht etwas ähnliches wie der Code unten...

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

Bild


Betrifft: AW: Zellen in Array einlesen von: u_
Geschrieben am: 16.02.2005 15:30:17

Hallo,
das kann gar nicht. Zelle ist am Anfang 0, Spalte 0 gibts nicht.

Sub test()
Dim zeilenArray(), Zelle As Integer, Zellen As Integer
Zellen = Range("A4").End(xlToRight).Column
ReDim Preserve zeilenArray(Zellen - 1)
For Zelle = 1 To Zellen
Worksheets("Übersicht").Select
zeilenArray(Zelle - 1) = Cells(4, Zelle)
Next
MsgBox zeilenArray(0)
End Sub

Gruß


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen in Array einlesen"