Excel und VBA: Formeln, Programmierung, Lösungen

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