Text finden (Archiv-Recherche)
15.02.2004 11:34:17
Erich M.
habe aus dem Archiv folgenden Code (bereits abgewandelt):
Sub textfinden()
' Archiv 314665
Dim txt As Variant
Dim Text_Laenge, Laenge_Bis_Leer
txt = Range("a2").Value
Text_Laenge = Len(txt)
Laenge_Bis_Leer = InStr(txt, " ") ' & InStr(txt, " ")
txt = Right(txt, Text_Laenge - (Laenge_Bis_Leer))
MsgBox txt
End Sub
Ich habe in der Zelle A2 stehen:
WV 234 Muster Kaufen 462 T
Nun suche ich die Lösung, dass die MsgBox anzeigt:
Muster Kaufen 462 T
Derzeit kommt: 234 Muster Kaufen 462 T
Wie bringe ich das zweite Leerzeichen als Trennung richtig in meinem Code unter?
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige