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
Um das erste Zeichen in einer Zelle in Excel zu ersetzen, kannst Du die folgende Methode verwenden. In diesem Beispiel werden wir die Vorwahl "1" durch "44" ersetzen.
Markiere die Zellen: Wähle die Zellen aus, die die Telefonnummern enthalten, deren erstes Zeichen Du ändern möchtest.
Öffne den VBA-Editor:
ALT + F11
, um den VBA-Editor zu öffnen.Füge ein neues Modul hinzu:
Einfügen > Modul
.Füge den folgenden VBA-Code ein:
Sub ErstesZeichenErsetzen()
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
Führe das Makro aus:
ALT + F8
, wähle ErstesZeichenErsetzen
aus und klicke auf Ausführen
.Jetzt wird das erste Zeichen "1" in den ausgewählten Zellen durch "44" ersetzt.
Fehler: Makro funktioniert nicht
Lösung: Stelle sicher, dass Du die Zellen korrekt markiert hast und dass das Makro im richtigen Modul eingefügt wurde.
Fehler: Nur das erste Zeichen wird nicht ersetzt
Lösung: Vergewissere Dich, dass das erste Zeichen tatsächlich "1" ist. Andernfalls wird die Bedingung im Code nicht erfüllt.
Falls Du kein VBA verwenden möchtest, gibt es auch die Möglichkeit, die Funktion WENN
in Excel zu nutzen:
=WENN(Links(A1;1)="1";"44"&Rechts(A1;Länge(A1)-1);A1)
Diese Formel prüft, ob das erste Zeichen in Zelle A1 "1" ist. Wenn ja, wird "44" vor die restliche Telefonnummer gesetzt, andernfalls bleibt die Telefonnummer unverändert.
Beispiel 1:
Du hast die Nummer "11231212" in Zelle A1. Mit der oben genannten Formel wird das Ergebnis "441231212" sein.
Beispiel 2:
In Zelle B1 steht "21231212". Die Formel gibt "21231212" zurück, da das erste Zeichen nicht "1" ist.
Verwende benutzerdefinierte Funktionen: Wenn Du häufig das erste Zeichen in verschiedenen Zellen ersetzen musst, könnte es hilfreich sein, eine benutzerdefinierte Funktion zu erstellen, um den Prozess zu automatisieren.
Dokumentiere Deine Makros: Halte Deine Makros gut dokumentiert, damit Du ihre Funktionsweise schnell nachvollziehen kannst, wenn Du sie später wieder benötigst.
1. Frage
Wie kann ich das erste Zeichen in mehreren Zellen gleichzeitig ersetzen?
Antwort: Du kannst den oben beschriebenen VBA-Code verwenden, um mehrere Zellen in einem Schritt zu bearbeiten.
2. Frage
Kann ich auch andere Zeichen mit dieser Methode ersetzen?
Antwort: Ja, Du kannst den Code anpassen, um beliebige Zeichen zu ersetzen, indem Du die Bedingung und den Ersetzungstext im VBA-Skript änderst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen