AW: Alle Buchstaben aus einer Zelle löschen
hoffi
Vielen Dank, ich habe Dein Makro verwendet und noch eine kleine Formatierung bezüglich der Vorwahlen eingebaut. Es ist ein wenig umständlich geworden, weil ich natürlich die führenden Nullen benötige. Aber was solls. Vielen Dank und viele Grüße Hoffi
Sub ZahlMitVorwahl()
Dim zelle As Range
Dim i%
Application.ScreenUpdating = False
For Each zelle In Selection
If Left(zelle, 2) = "00" Then
zelle = "~" & Right(zelle, Len(zelle) - 2)
ElseIf Left(zelle, 1) = "+" Then
zelle = "~" & Right(zelle, Len(zelle) - 1)
ElseIf Left(zelle, 1) = "0" Then
zelle = "~49" & Right(zelle, Len(zelle) - 1)
ElseIf InStr(1, "123456789", Left(zelle, 1)) = 0 Then
zelle = "~4989" & Right(zelle, Len(zelle) - 1)
End If
For i = Len(zelle) To 1 Step -1
If InStr(1, "~0123456789", Mid(zelle, i, 1)) = 0 Then
zelle = Left(zelle, i - 1) & Right(zelle, Len(zelle) - i)
End If
Next i
If Left(zelle, 1) = "~" Then
zelle = "'+" & Right(zelle, Len(zelle) - 1)
End If
Next zelle
Application.ScreenUpdating = True
End Sub