Automatisches umformatieren von Nummern im Excel

=LINKS(A1;FINDEN(" ";A1)-1)&" ("&WENN(LINKS(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;5)-5);1)="0";TEIL(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;5)-5);2;10);TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;5)-5))&") "&TEIL(A1;FINDEN(" ";A1;5)+1;20)  

Sub CorrectNumbers()
    Set regex = CreateObject("vbscript.regexp")  
    IgnoreCase = True
    regex.Pattern = "^\+?(00)?(\d+)\s*\(?0?(\d{2,4}|\d{2,4})\)?\s*(\d+)"  
    With ActiveSheet
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            Set matches = regex.Execute(cell.Value)
            If matches.Count > 0 Then
                cell.Offset(0, 1).Value = regex.Replace(cell.Value, "+$2 ($3) $4")  
            Else
                cell.Offset(0, 1).Value = cell.Value
            End If
        Next
    End With
    Set regex = Nothing
End Sub

regex.Pattern = "\+?(00)?(\d{2})\s*\(?0?(\d{2,6}|\d{3,7})\)?\s*([\d+ ]*)"