Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Variable automatisch erstellen

Variable automatisch erstellen
28.02.2008 09:14:09
Stephan
Hallo zusammen,
ich möchte den Zelleninhalt einer variablen Zellenanzahl Variablen zuordnen.
Beispiel:
in Zelle A1 steht "1"
in Zelle A2 steht "2"
in Zelle A3 steht "3" und so weiter.
Diese Inhalte will ich Variablen zuordnen, um sie danach auszugeben.
Ich stelle mir eine Lösung dieser Art vor:
Rem Zelleninhalte in Variabeln speichern
For A = 1 to Cells(Rows.Count, 1).End(xlUp).Row ' Ermittlung der Zeilenanzahl
Zeile&A = cells (a,1) ' Übergabe der Zelleninhalte an die Variablen Zeile1, Zeile2, Zeile3 ...
Next A
Rem Werte der Variabeln ausgeben
For A = 1 to Cells(Rows.Count, 1).End(xlUp).Row
Msgbox Zeile&A
Next A
Mein Problem ist der Term "Zeile&A", da A eben variabel ist.
Hat jemand eine Idee? Danke vorab.
Stephan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable automatisch erstellen
28.02.2008 09:28:03
Beverly
Hi Stephan,

Dim A As Integer
Dim arrWerte()
For A = 1 To Cells(Rows.Count, 1).End(xlUp).Row ' Ermittlung der Zeilenanzahl
ReDim Preserve arrWerte(0 To A - 1)
arrWerte(A - 1) = Cells(A, 1) ' Übergabe der Zelleninhalte an die Variablen Zeile1,  _
Zeile2, Zeile3 ...
Next A
For A = LBound(arrWerte()) To UBound(arrWerte())
MsgBox arrWerte(A)
Next A




AW: Variable automatisch erstellen
28.02.2008 13:13:00
Stephan
Wow, klasse. Vielen Dank!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige