String mit Sonderzeichen in Strin suchen (VBA)
MikeS
ich möchte einen großen String per VBA mit Zeilenumbrüchen versehen und ausgeben. Der Zeilenumbruch soll immer vor einem bestimmten Muster erstellt werden. Datum und Uhrzeit sind variabel!
Ich erhalte immer 0 als Ergebnis :-(
Private Sub Suche_Text()
Dim lStart As Long
Dim sText As String
Dim sMaske As String
sText = "Hallo das ist ein Test * 02.06.2010 10:15:16"
' gesuchter String: "* 02.06.2010 10:15:16"
sMaske = "[*^]##[.]##[.]####[^]##[:]##[:]##"
lStart = InStr(1, sText, sMaske, vbTextCompare)
Debug.Print lStart
End Sub