Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolge in Ziffern und Buchstaben aufteilen

Gruppe

Zeichenfolge

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