Ersetzen mit VBA in allen Arbeitsblättern

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
"E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\Version 2007\[_Basisdaten.xlsx" _
, Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _
, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Wie kann ich den Code modifizieren, sodass das Ersetzen in allen Arbeitsblättern vorgenommen wird.
Bitte um Hilfe - DANKE!
Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub SuchenErsetzen() Dim Tabellen As Worksheet For Each Tabellen In ThisWorkbook.Sheets Tabellen.Cells.Replace What:= _ "E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\Version 2007\[_Basisdaten.xlsx" _ , Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _ , LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _ :=False, ReplaceFormat:=False Next Tabellen End Sub

Hallo Tino,
ich habe mich zu früh gefreut und bin noch nicht ganz am Ziel, denn es werden plötzlich keine Ersetzungen mehr durchgeführt.
Hier ist der Code, bitte schau ihn nochmal durche - DANKE!
Walter


Sub Wertung()
Dim Tabellen As Worksheet
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect
Next i
For Each Tabellen In ThisWorkbook.Sheets
Tabellen.Cells.Replace What:= _
"E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\Version 2007\[ _
_Basisdaten.xlsx" _
, Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _
, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Next Tabellen
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Protect
Next i
End Sub

Option Explicit Sub Wertung() Dim Tabellen As Worksheet For Each Tabellen In ThisWorkbook.Sheets Tabellen.Unprotect Tabellen.Cells.Replace What:= _ "E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\" & _ "Version 2007\[Basisdaten.xlsx" _ , Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _ , LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _ :=False, ReplaceFormat:=False Tabellen.Protect Next Tabellen End Sub

Beliebteste Forumthreads (12 Monate)

Ersetzen mit VBA in allen Arbeitsblättern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ersetzen mit VBA in allen Arbeitsblättern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread