Text trennen
20.01.2015 19:39:39
siegfried
ich möchte aus einem Text dessen einzelne Worte getrennt herauslesen.
Mit dem nachfolgenden Code gelingt das auch.
For n1 = 1 To AnzTermineTeam - 1
TeamH = Range(ZellenBezug).Offset(n1, 3).Value
' bearbeitet den Text TeamH
Volltext = TeamH
LückeAnzH = 0
Lücke1H = 0
Lücke2H = 0
Lücke3H = 0
Lücke4H = 0
LückeEndeH = 0
For n2 = 1 To Len(Volltext)
If Mid(Volltext, n2, 1) = " " Then
LückeAnzH = LückeAnzH + 1
If LückeAnzH = 1 Then
Lücke1H = n2
ElseIf LückeAnzH = 2 Then
Lücke2H = n2
ElseIf LückeAnzH = 3 Then
Lücke3H = n2
ElseIf LückeAnzH = 4 Then
Lücke4H = n2
End If
LückeEndeH = n2
End If
Next n2
TextAnfangH = Mid(Volltext, 1, Lücke1H - 1)
If Lücke1H = 0 Then
ElseIf Lücke1H = LückeEndeH Then
TextM1H = Mid(Volltext, Lücke1H + 1, Len(Volltext) - Lücke1H)
Else
TextM1H = Mid(Volltext, Lücke1H + 1, Lücke2H - Lücke1H)
End If
If Lücke2H = 0 Then
ElseIf Lücke2H = LückeEndeH Then
TextM2H = Mid(Volltext, Lücke2H + 1, Len(Volltext) - Lücke1H)
Else
TextM2H = Mid(Volltext, Lücke2H + 1, Len(Volltext) - Lücke2H - Lücke1H + 1)
End If
TextEndeH = Mid(Volltext, LückeEndeH + 1, Len(Volltext))
Next n1
Das Problem:
Folgt einem Text z.B. mit 3 Worten ein kürzerer Text mit 2 Worten, bleibt das 3. Wort in der Variablen.
Wie muss ich vorgehen, um die Variable (hier = TextM2H) bei jedem Schleifendurchlauf freizugeben?
Gruß
Siegfried