AW: Suchen in Arbeitsmappe fest einstellen
27.07.2015 16:13:56
Klexy
Dauerhaft wird schwer, weil du da nicht rankommst, wo diese Einstellung hinterlegt ist. Und wenn du das rausfindest, würde es mich sehr interessieren, weil ich im reinen Suchmodus das "Suchen in: Formeln" gern standardmäßig in "Suchen in: Werten" ändern würde.
Aber du kannst dir eine Schaltfläche machen, die du mit folgendem Makro hinterlegst:
Sub Suchen_Ersetzen_in_allen_Blättern()
Dim wks As Worksheet, S As Variant, E As Variant
S = InputBox(Chr(13) & Chr(13) & "Bitte gesuchte Zeichenkette eintragen" & Chr(13) & "", " _
Suchen")
If StrPtr(S) = 0 Then
Exit Sub
Else
E = InputBox(Chr(13) & Chr(13) & "Bitte Ersatz-Zeichenkette eintragen" & Chr(13) & "", " _
Ersetzen")
If StrPtr(E) = 0 Then
Exit Sub
Else
End If
End If
For Each wks In ActiveWorkbook.Worksheets
wks.Cells.Replace What:=S, Replacement:=E, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase: _
=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub
Zwischen den beiden Feldern wechselst du nicht mit TAB wie beim normalen Suchen/Ersetzen sondern mit Enter