Strassennamen in Excel korrekt ändern
Schritt-für-Schritt-Anleitung
Um alle Strassennamen in einer Excel-Tabelle so zu formatieren, dass sie mit "straße" enden, kannst du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne Excel und lade die Tabelle, die die Strassennamen enthält.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke auf
Einfügen > Modul.
-
Kopiere den folgenden Code in das Modul:
Public Sub Strassen_Namen()
Dim lZeile As Long
Dim sTemp As String
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For lZeile = 1 To Range("C65536").End(xlUp).Row
.Range("C" & lZeile).Value = _
Replace(.Range("C" & lZeile).Value, "str.", "straße")
.Range("C" & lZeile).Value = _
Replace(.Range("C" & lZeile).Value, "Str.", "Straße")
.Range("C" & lZeile).Value = _
Replace(.Range("C" & lZeile).Value, "strasse", "straße")
.Range("C" & lZeile).Value = _
Replace(.Range("C" & lZeile).Value, "Strasse", "Straße")
sTemp = .Range("C" & lZeile).Value & " "
If InStr(sTemp, "str ") > 0 Then
.Range("C" & lZeile).Value = _
Replace(sTemp, "str ", "straße")
ElseIf InStr(sTemp, "Str ") > 0 Then
.Range("C" & lZeile).Value = _
Replace(sTemp, "Str ", "Straße")
End If
Next lZeile
End With
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Führe das Makro aus:
- Drücke
ALT + F8, wähle Strassen_Namen aus und klicke auf Ausführen.
Das Makro wird alle Strassennamen in der Spalte C von "Tabelle1" entsprechend anpassen.
Häufige Fehler und Lösungen
- Makro funktioniert nicht: Stelle sicher, dass du das Makro korrekt eingefügt hast und dass die Tabelle "Tabelle1" tatsächlich existiert.
- Falsche Ersetzungen: Wenn das Makro unerwartete Ergebnisse liefert, überprüfe die Daten in deiner Spalte. Vergewissere dich, dass keine zusätzlichen Leerzeichen vorhanden sind.
- Endung nicht korrekt angepasst: Achte darauf, dass die Bedingungen im Code so formuliert sind, dass nur die Endungen betroffen sind.
Alternative Methoden
Falls du kein Makro verwenden möchtest, kannst du auch folgende Alternativen ausprobieren:
-
Formel verwenden: Du kannst eine Formel in einer neuen Spalte anwenden:
=WENN(ISTZAHL(FINDEN("Strasse";A1));WECHSELN(A1;"Strasse";"Straße");WENN(ISTZAHL(FINDEN("Str." ;A1));WECHSELN(A1;"Str.";"Straße");WENN(ISTZAHL(FINDEN("str";A1));WECHSELN(A1;"str";"straße");A1)))
-
Suchen und Ersetzen: Nutze STRG + H, um "str." durch "straße" zu ersetzen, aber sei vorsichtig, dass du nur am Ende der Strassennamen suchst.
Praktische Beispiele
Hier sind einige Beispiele, wie die genannten Methoden angewendet werden können:
| Originalname |
Ergebnisname |
| Erste Hofstr. |
Erste Hofstraße |
| Zweite Hofstr nach JWD |
Zweite Hofstraße nach JWD |
| Dritte Hofstrasse nach JWD |
Dritte Hofstraße nach JWD |
| Str. der dt. Einheit |
Straße der dt. Einheit |
| Einbahnstr. |
Einbahnstraße |
Du kannst die Formeln nutzen, um die korrekten Strassennamen in einer neuen Spalte zu generieren und dann die Werte zurück in die Originalspalte kopieren.
Tipps für Profis
- Fehlerquellen minimieren: Füge vor dem Ausführen des Makros eine Sicherheitskopie deiner Daten an, um ungewollte Änderungen zu vermeiden.
- Automatisierung: Überlege, das Makro als Schaltfläche in deine Excel-Oberfläche zu integrieren, um den Prozess zu beschleunigen.
- Regelmäßige Backups: Mache regelmäßige Backups deiner Excel-Dateien, insbesondere wenn du mit großen Datenmengen arbeitest.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, wenn die Straßennamen in einer anderen Spalte stehen?
Du musst einfach die Spalte im Code ändern. Ersetze "C" durch die entsprechende Spaltenbezeichnung.
2. Was ist, wenn ich mehr Varianten der Endungen habe?
Du kannst weitere Replace-Funktionen im Makro hinzufügen, um zusätzliche Endungen zu berücksichtigen. Achte darauf, die Logik beizubehalten, um nur das Ende der Namen zu beeinflussen.