Zelle einlesen und nach Zeilenumbruechen trennen
abu
habe ein kleines Problem und hoffe Ihr koennt mir helfen.
In Zelle G2 steht eine Adresse die ich gerne einlesen, aufteilen und in TextBoxen wiedergeben moechte.
Dazu habe ich folgenden Code gefunden und geandert:
Dim iRow As Integer
Dim sTxt As String
With wksData
sTxt = .Cells(2, 7).Text
'
sTxt = WorksheetFunction.Substitute(sTxt, vbLf, "")
Do
iRow = iRow + 1
If InStr(sTxt, vbCr) Then
TextBox20iRow.Value = Left(sTxt, InStr(sTxt, vbCr) - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbCr))
Else
TextBox201.Value = sTxt
Exit Do
End If
Loop
End With
Leider erkennt er scheinbar die Zeilenumbrueche nicht und springt ins Else.
Hat jemand vllt. eine Idee was ich aendern muss so dass er auch bei mir funktioniert?
Danke im voraus.
Beste Gruesse
abu