Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchen und Ersetzen in mehreren Tabellenblättern

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

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
Re: Suchen und Ersetzen in mehreren Tabellenblättern
12.03.2003 14:18:32
Philipp

Super hat geklappt.

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

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige