Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variable automatisch erstellen

Forumthread: 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

Anzeige

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




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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige