Herbers Excel-Forum - das Archiv

Zellen in Array einlesen

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
Excel-Beispiele zum Thema "Zellen in Array einlesen"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen