Ich möchte in einer Liste Telefonnummern ändern. Die alte Vorwahl ist "1" und soll durch "44" ersetzt werden.
Beispiel:
Alt=11231212
Neu=441231212
Es soll also nur das erste Zeichen (1) in (44) in der Zelle ersetzt werden.
Gruss Klaus
Sub Zürich()
Dim sc As Range
For Each sc In Selection.Cells
If Left(sc.Value, 1) = "1" Then
sc.Value = "44" & Mid(sc.Value, 2, Len(sc.Value))
End If
Next
End Sub