Suchen Ersetzen in mehreren Excel-Files

stefan onken

2005-02-07 12:15:03 UTC

hallo Michael,
man könnte dafür ein Makro einsetzen:

wechsle in einer Exceldatei (in der nichts ersetzt werden soll) in den
VBA-Editor (Alt+F11)
Einfügen/Modul
in das große Codefenster kopierst du:

Sub ersetzen()
dateien = Application.GetOpenFilename _
("Excel-Dateien (*.xls), *.xls", MultiSelect:=True)
Application.ScreenUpdating = False
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i)
With ActiveWorkbook
For n = 1 To .Sheets.Count
.Sheets(n).Cells.Replace What:="SUCHEN", _
Replacement:="ERSETZEN", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next
.Save
.Close
End With
Next
End If
End Sub

statt SUCHEN dein Suchbgriff, ebenso bei ERSETZEN. Wenn GROß/klein beachtet
werden soll, False hinter MatchCase durch True ersetzen.
Beende den Editor (oben rechts X) .
Das Makro startest du über Extras/Makro/Makros. Es erscheint der
Datei-öffnen-Dialog, in dem du bei gedrückter STRG-Taste mehrere Dateien
gleichzeitig selektieren kannst.

Teste es am besten erstmal an Kopien deiner Dateien!

Gruß
stefan

Post by Michael E.
Hallo,
ich muß ein und dasselbe Wort in 40 verschiedenen Excel-Files ersetzen. Gibt
es die Möglichkeit, diese Aufgabe über Suchen / Ersetzen auf einmal zu
erledigen, oder muß ich tatsächlich jedes einzelne File öffnen und einzeln
bearbeiten?
Über eine Lösung freue ich mich sehr.
Herzliche Grüße
Michael