wenn ich das bis jetzt richtig mitbekommen habe, dann gibt es keine dateiübergreifende suche und ersetzen funktion.
kann mir jemand dennoch einen weg hierfür aufzeigen - tool oder routine ?
vielen dank im voraua.
gruß Jan :-)
Sub InArbeitsmappenSuchenUndErsetzen()
Dim i As Integer
Dim Blatt As Worksheet
Dim suchbegriff As String
Dim s As String
Dim zelle As Range
suchbegriff = InputBox("suchen nach")
ersetzbegriff = InputBox("neuer Wert")
If suchbegriff = "" Then Exit Sub
For i = 1 To Application.Workbooks.Count
For Each Blatt In Workbooks(i).Worksheets
Blatt.Activate
Set zelle = Blatt.Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
s = zelle.Address
Do
zelle.Activate
zelle.Value = ersetzbegriff
Set zelle = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If zelle.Address = s Then Exit Do
zelle.Value = ersetzbegriff
Loop
End If
Next Blatt
Workbooks(i).Activate
Next i
End Sub