Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Zellen in Array einlesen

Zellen in Array einlesen
16.02.2005 15:06:30
Laura
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen in Array einlesen
u_
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ß
Anzeige

210 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige