[Alex²]

Ich hab nen String, der so aussieht:

Zeile1
Zeile2
Zeile3
Zeile4

Und möchte Folgendes machen:

Lies Zeile1
Verarbeite Zeile 1 Hier möcht ich was auch immer mit der Zeile anstellen können.
Lies Zeile2
Verarbeite Zeile 1 Hier möcht ich was auch immer mit der Zeile anstellen können (Das Selbe wie bei Zeile 1

usw....

Des geht sicherlich mit ner Schleife o.ä.

Mfg Alex²

[Chrisomator]

Versuch mal mit einer Do Schleife jedes mal von 1 bis vbNewLine zu gehen, den String aus dem anderen String zu entfernen und wenn der String = "" ist, dann Exit Do

MfG, Chrisomator

[N0S]

Dim s As String
Dim a() As String
s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

MsgBox a(0)
MsgBox a(1)
MsgBox a(UBound(a))

[Alex²]

Danke, ich habs jetzt so gemacht:

For i = 0 To intLines
Dim s As String
Dim a() As String
s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

MsgBox a(i)
Next i

intLines ist Dabei eine Variable mit der Zeilenanzahl.

[N0S]

Zitat von Alex²

Danke, ich habs jetzt so gemacht:

For i = 0 To intLines
Dim s As String
Dim a() As String
s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

MsgBox a(i)
Next i

intLines ist Dabei eine Variable mit der Zeilenanzahl.

ehm das ist ziemlich schlecht... wenn dann so:

Dim s As String
Dim a() As String

s = "Zeile1" & vbNewLine & "Zeile2" & vbNewLine & "Zeile3" & vbNewLine & "Zeile4"

a = Split(s, vbNewLine)

For i = 0 To UBound(a)
MsgBox a(i)
Next i