Herbers Excel-Forum - das Archiv

Übergabe an Variable

Bild

Betrifft: Übergabe an Variable
von: Gregor

Geschrieben am: 25.04.2005 09:41:37
Hallo zusammen
Ich habe grundsätzlich eine einfache Abfrage mit For .... Next.
Zeile = 5
For Abfrage = Zeile To Zeile + Zähler
Länge = Cells(Abfrage, 23).Value
Next Abfrage
Der Zähler ist indviduell von 1 bis max 10 und wird vorgängig durch eine Abfrage definiert. Er könnte also 6 lauten, das heisst, es müssten zB. 6 Längen in Zeilen 5,6,7,8,9,10 immer in Spalte 23 abgefragt werden. Wie kann ich nun die unterschiedlichen 6 Ergebnisse zum Beispiel der Variable Länge1, Länge2, Länge3, Länge4, Länge5 und Länge6 zuweisen, sodass ich diese mit einer MsgBox darstellen kann. Ich möchte also die Längen nirgends eintragen, sondern direkt via MsgBox anzeigen. Ist das mäglich?
Vielen Dank und Gruss
Gregor
Bild

Betrifft: AW: Übergabe an Variable
von: Hajo_Zi

Geschrieben am: 25.04.2005 09:44:52
Hallo Gregor,
benutze für Länge ein Array
Länge(Zaehlvarible)=

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Bild

Betrifft: AW: Übergabe an Variable
von: Gregor
Geschrieben am: 25.04.2005 10:06:23
Hallo Hajo
Habe mit Array wenig Erfahrung und komme mit den Eräuterungen aus Hilfe nicht weiter. Kannst du mir diesen Array als Beispiel aufzeichnen? Vielen Dank.
Gregor
Bild

Betrifft: AW: Übergabe an Variable
von: Hajo_Zi

Geschrieben am: 25.04.2005 10:20:53
Hallo Gregor,
Option Explicit
Sub gregor()
Dim Zeile As Long
Dim Abfrage As Long
Dim Laenge(13) As Variant   ' für 13 Werte
Dim Zähler As Long
Zähler = 13
Zeile = 5
For Abfrage = Zeile To Zeile + Zähler
Laenge(Abfrage - Zeile) = Cells(Abfrage, 23).Value
Next Abfrage
For Abfrage = 0 To Zähler - 1
MsgBox Laenge(Abfrage)
Next Abfrage
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Bild

Betrifft: AW: Übergabe an Variable
von: Gregor
Geschrieben am: 25.04.2005 10:44:40
Hajo
Vielen Dank. Ich möchte alle Längen als Übersicht auf einer einzigen MsgBox darstellen. Ist das möglich und wie?
Falls du mir nochmals einen Tipp geben kannst, herzlichen Dank.
Gregor
Bild

Betrifft: AW: Übergabe an Variable
von: Hajo_Zi

Geschrieben am: 25.04.2005 10:56:45
Hallo Gregor,
Option Explicit
Sub gregor()
Dim Zeile As Long
Dim Abfrage As Long
Dim Laenge(13) As Variant   ' für 13 Werte
Dim Zähler As Long
Dim StWerte As String
Zähler = 13
Zeile = 5
For Abfrage = Zeile To Zeile + Zähler
Laenge(Abfrage - Zeile) = Cells(Abfrage, 23).Value
Next Abfrage
For Abfrage = 0 To Zähler - 1
If Abfrage Mod 4 = 0 Then   ' 4 Werte pro Zeile
StWerte = StWerte & Chr(13) & Laenge(Abfrage)
Else
StWerte = StWerte & " " & Laenge(Abfrage)
End If
Next Abfrage
MsgBox StWerte
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Bild

Betrifft: Danke
von: Gregor
Geschrieben am: 25.04.2005 11:25:31
Hajo
Eine sehr interessante Lösung, vielen Dank für deine Ausdauer!
Gregor
 Bild
Excel-Beispiele zum Thema "Übergabe an Variable"
Variablenübergabe in andere Arbeitsmappen Text aus Textbox in Variable
Einlesen von Zellinhalten in Variablen Variable in Formel einbauen
Variable in Excel-Formel einbauen. Text aus UserForm-Textbox in Variable einlesen
Variable in Zwischenablage übernehmen Variablen in einer temporären Textdatei zwischenspeichern
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben Feldvariable auf Inhalt testen