VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichenfolge in Ziffern und Buchstaben aufteilen

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zeichenfolge