Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: erstes Zeichen ersetzen

erstes Zeichen ersetzen
22.11.2006 09:23:38
Klaus
Hallo zusammen
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erstes Zeichen ersetzen
22.11.2006 09:36:56
EtoPHG
Hallo Klaus,
Selektiere die Zellen und dann lass folgendes Makro laufen:

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

Gruss Hansueli
Anzeige
AW: erstes Zeichen ersetzen
22.11.2006 09:56:48
Klaus
Hallo Hansueli
Danke für die schnelle Antwort, klappt prima
Gruss Klaus
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Erstes Zeichen in Excel ersetzen: Schritt-für-Schritt-Anleitung


Schritt-für-Schritt-Anleitung

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.

  1. Markiere die Zellen: Wähle die Zellen aus, die die Telefonnummern enthalten, deren erstes Zeichen Du ändern möchtest.

  2. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf einen Eintrag im Projektfenster und wähle Einfügen > Modul.
  4. 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
  5. Führe das Makro aus:

    • Schließe den VBA-Editor und kehre zu Excel zurück.
    • Drücke 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.


Häufige Fehler und Lösungen

  • 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.


Alternative Methoden

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.


Praktische Beispiele

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.


Tipps für Profis

  • 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.


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige