Suchen und Ersetzen in mehreren Tabellenblättern

Forumthread: Suchen und Ersetzen in mehreren Tabellenblättern

12.03.2003 14:10:09

Philipp

Hallo zusammen!

Ich habe folgendes Problem.

Ich habe eine Datei, mit vielen Tabellenblättern, wo ich jeden Monat die Monatsangaben ändern muss. Ich habe ein Makro, wo ich jeden Monat nur im Makro die Monatsnamen ändern muss. Diese Makro funktioniert auch, aber eben nur im aktuellen oder ganz bestimmt angewählten Tabellenblatt.

Hier das Makro:

Sheets(1).Select

Cells.Replace What:="Februar", Replacement:="März", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Cells.Replace What:="Januar", Replacement:="Februar", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

End Sub

Meine Frage nun: Wie bekomme ich das hin, dass ich das Makro starte und die Änderungen in allen Tabellenblättern der Datei gemacht werden?

Im Vorraus vielen Dank!

Philipp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Suchen und Ersetzen in mehreren Tabellenblättern

12.03.2003 14:14:39

Andi_H

Hallo Philipp,
versuch mal dies hier:

Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.select
Cells.Replace What:="Februar", Replacement:="März", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Cells.Replace What:="Januar", Replacement:="Februar", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next wks

grüße
Andi_H

Re: Suchen und Ersetzen in mehreren Tabellenblättern

12.03.2003 14:17:01

walter

Das müsste funktionieren:
Sub suchenInAllenBlättern()
Dim ws
For Each ws In Worksheets
Cells.Replace What:="Februar", Replacement:="März", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Cells.Replace What:="Januar", Replacement:="Februar", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next
End Sub

Gruß Walter

Re: Suchen und Ersetzen in mehreren Tabellenblättern

12.03.2003 14:18:32

Philipp

Super hat geklappt.

Danke schön!!!!!!!!

Infobox / Tutorial

Suchen und Ersetzen in mehreren Tabellenblättern

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in mehreren Tabellenblättern einer Excel-Datei den Text zu suchen und zu ersetzen, kannst du ein einfaches Makro verwenden. Folge diesen Schritten:

Öffne die Excel-Datei, in der du die Änderungen vornehmen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub suchenInAllenBlättern()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Cells.Replace What:="Februar", Replacement:="März", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
        ws.Cells.Replace What:="Januar", Replacement:="Februar", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    Next ws
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8, wähle das Makro suchenInAllenBlättern aus und klicke auf Ausführen.

Mit diesem Makro kannst du die Monatsnamen in allen Tabellenblättern deiner Datei ändern.

Häufige Fehler und Lösungen

Fehler: "Komponente nicht gefunden"
- Lösung: Stelle sicher, dass du das Makro in einem Modul eingefügt hast und nicht in einem Arbeitsblatt oder einem anderen Objekt.
Fehler: Keine Änderungen vorgenommen
- Lösung: Überprüfe die Schreibweise der Begriffe, die du suchst. Achte darauf, dass sie genau mit dem übereinstimmen, was in den Zellen steht.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du die Funktion "Suchen und Ersetzen" manuell in jedem Tabellenblatt ausführen:

Wähle das erste Tabellenblatt aus.
Drücke CTRL + H, um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
Gib den zu suchenden Begriff und den Ersetzungsbegriff ein.
Klicke auf "Alle ersetzen".
Wiederhole diesen Vorgang für jedes Tabellenblatt.

Praktische Beispiele

Hier sind einige praktische Beispiele für das Suchen und Ersetzen in mehreren Tabellenblättern:

Beispiel 1: Du möchtest den Begriff "Budget" in "Kostenplan" ändern. Verwende das oben genannte Makro und passe die Such- und Ersetzungsbegriffe an:
```
ws.Cells.Replace What:="Budget", Replacement:="Kostenplan", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
```
Beispiel 2: Wenn du den Text "Produkt A" durch "Produkt B" ersetzen möchtest, kannst du die gleiche Struktur im Makro verwenden.

Tipps für Profis

Backup erstellen: Erstelle immer eine Sicherungskopie deiner Datei, bevor du Makros ausführst.
Testen: Teste dein Makro zunächst an einer kleinen Datenmenge, um sicherzustellen, dass es wie gewünscht funktioniert.
Kommentare im Code: Füge Kommentare in deinen VBA-Code ein, um die Funktionsweise zu dokumentieren. Dies erleichtert die Wartung und das Verständnis des Codes.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehr Begriffe zu ersetzen? Du kannst weitere Cells.Replace Zeilen im Makro hinzufügen, um zusätzliche Begriffe zu ersetzen.

2. Funktioniert das Makro in Excel 2016? Ja, das Makro funktioniert in Excel 2016 und in den meisten anderen Versionen von Excel, die VBA unterstützen.

3. Was passiert, wenn ich ein falsches Wort eingebe? Das Makro wird das Wort nicht finden und keine Änderungen vornehmen. Überprüfe deine Eingaben, wenn du keine Änderungen siehst.

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen in mehreren Tabellenblättern

Forumthread: Suchen und Ersetzen in mehreren Tabellenblättern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Suchen und Ersetzen in mehreren Tabellenblättern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen in mehreren Tabellenblättern

Forumthread: Suchen und Ersetzen in mehreren Tabellenblättern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Suchen und Ersetzen in mehreren Tabellenblättern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread