Sub Test_Bsp()
Dim Regex As Object, objMatch As Object
Dim strFormel$
strFormel = "=37+TestName*MwST-13"
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.MultiLine = True
.Pattern = "\w+"
.Global = True
For Each objMatch In .Execute(strFormel)
Debug.Print Trim$(objMatch)
Next objMatch
End With
Set Regex = Nothing
End Sub
Function zerlegeFormel(ByVal meineFormel As String) As String()
Dim regEx As Object
Dim myMatch As Object
Dim Matches As Object
Dim tempStr() As String
Dim i As Long
Set regEx = CreateObject("VbScript.Regexp")
' Suchmuster festlegen
regEx.Pattern = "[^+\-\*/\(\)=]+"
' groß/klein egal
regEx.IgnoreCase = True
' mehrere Treffer suchen
regEx.Global = True
Set Matches = regEx.Execute(meineFormel)
If Matches.Count > 0 Then
ReDim tempStr(1 To Matches.Count)
For i = 1 To Matches.Count
tempStr(i) = Matches.Item(i - 1)
Next
zerlegeFormel = tempStr
Else
' Gibt Array mit Ubound 0 zurück, so von erfolgreicher
' Suche zu unterscheiden
ReDim zerlegeFormel(0 To 0)
End If
End Function