Gruppe
UDF
Bereich
Zeichenfolge
Thema
Zeichenfolge in Ziffern und Buchstaben aufteilen
Problem
Wie kann ich eine Zeichenfolge wie "12AB3C45D" in die Zahl 12345 und die Zeichenfolge "ABCD" aufteilen?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function TrennenA(sTxt As String)
Dim iCounter As Integer
Dim sDbl As String
For iCounter = 1 To Len(sTxt)
If IsNumeric(Mid(sTxt, iCounter, 1)) Then
sDbl = sDbl & Mid(sTxt, iCounter, 1)
End If
Next iCounter
TrennenA = CDbl(sDbl)
End Function
Function TrennenB(sTxt As String)
Dim iCounter As Integer
Dim sTmp As String
For iCounter = 1 To Len(sTxt)
If Not IsNumeric(Mid(sTxt, iCounter, 1)) Then
sTmp = sTmp & Mid(sTxt, iCounter, 1)
End If
Next iCounter
TrennenB = sTmp
End Function