Übergabe an Variable

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Übergabe an Variable"