Wert eines Memofeldes zeilenweise per VBA auslesen

[sonja]

Ich habe folgendes Problem, bei dem ich völlig auf der Leitung stehe:

Ich möchte in einem Formular in ein ungebundenes Memofeld eine Wertliste eingeben, die etwa so aussieht:
9783257242997
9783257244038
9783257069976
9783956542381
9783793423072
4010232057068
9783868261691
9783432105482

Anschließend möchte ich per VBA den string mit einer Schleife zeilenweise auslesen, und jeden Wert einzeln an eine Prozedur übergeben. Ich stelle mir das so vor wie

Line input
...
Loop

Kann mir jemand einen Tipp geben?

[Lachtaube]

Aus dem VBA Direktfenster:

Code [Auswählen] Erweitern

t = "9783257242997" & vbCrLf & "9783257244038" & vbCrLf & "9783257069976"
a = Split(t, vbCrLf)
? a(0)
9783257242997
? a(1)
9783257244038
? a(2)
9783257069976

[Beaker s.a.]

@Lachtaube
Ob sie das versteht?

@Sonja
Im Form das Gleiche so (Luftcode)

Private Sub EinPassendesEreignis()
    Dim i as Integer
    Dim ary as String

    ary = Split(Me.DeinMemoFeld, vbcrlf)

    For i = 0 To UBound(ary)
        Call DeineFunktion(ary(i))
    Next i

End Sub

gruss ekkehard

[MzKlMu]

Hallo,
und wie oftmals stellt sich mir auch die Sinnfrage.
Wie kommt den die Wertelist im Memo zu Stande ?
Wird das von Hand/manuell eingetragen ?

[sonja]

Danke Beaker,

das ist genau, was ich meinte   

Und für die Sinnfrage: Es ist manchmal erforderlich eine Wertliste zu kopieren und das ist der schnellste Weg der Weiterverarbeitung. Ich habe schon einiges versuicht ;-)

[sonja]

Funktioniert.
Ich musste nur das Array als Variant deklarieren
Danke!

[MzKlMu]

Hallo,

Es ist manchmal erforderlich eine Wertliste zu kopieren

wenn man die Werteliste als Tabelle anlegt, braucht man nichts kopieren.
Ein Werteliste lasse ich mir noch für 2 Werte (z.Geschlecht, Anrede etc.) gefallen. Und selbst das ist grenzwertig. Ansonsten ist eine Werteliste so ziemlich das unflexibelste als Datenherkunft für ein Kombi.