Eine Zahl auseinander nehmen

[Sigi.21]

Hallo HZiemer,

mit folgendem kleinem Makro:

Sub TextZahlBearbeiten()
Dim Zelle As Range
Dim Aus As String
Dim i As Long
    For Each Zelle In Application.Selection
        If Len(Zelle.Text) = 16 Then
            Aus = ""
            For i = 1 To Len(Zelle.Text)
                Aus = Aus & Mid(Zelle.Text, i, 1)
                If i Mod 2 = 0 Then Aus = Aus & ":"
            Next i
            If Right(Aus, 1) = ":" Then Aus = Left(Aus, Len(Aus) - 1)
            Zelle.Value = Aus
        End If
    Next Zelle
End Sub


Gruß
Sigi