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?
Aus dem VBA Direktfenster:t = "9783257242997" & vbCrLf & "9783257244038" & vbCrLf & "9783257069976"
a = Split(t, vbCrLf)
? a(0)
9783257242997
? a(1)
9783257244038
? a(2)
9783257069976
@Lachtaube
Ob sie das versteht?
@Sonja
Im Form das Gleiche so (Luftcode)
ZitatPrivate 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
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 ?
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 ;-)
Funktioniert.
Ich musste nur das Array als Variant deklarieren
Danke!
Hallo,
ZitatEs 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.