ich habe folgende Aufgabenstellung? Mit der normalen Suchen & Ersetzen-Funktion wird im Anschluss die Anzahl der Ersetzungen mitgeteilt. So weit so gut. Ich habe jetzt das Makro aufgezeichnet und es normal ablaufen lassen. Aber es kommt keine Anzahl der Ersetzungen?
1.) Wie sieht der Code für diesen Wunsch aus?
2.) Wie bekomme ich das für mehrere Suchen/Ersetzungen hin, in einem VBA?
3.) Wie kann ich die Geschwindigkeit erhöhen? Wir arbeiten mir sehr vielen Verweisen auf andere Tabellenblätter!
Diese Frage hat nicht die Priorität, wäre aber nett zu wissen.
4.) Wie bekomme ich es hin, dass er ohne jedes Blatt auswählen, in allen Blättern sucht?
Sub mcr_FindReplace()
Application.ScreenUpdating = False
For Each wks In Worksheets
intCounter = intCounter + 1
wks.Select ' wählt die _
einzelen Blätter aus
Cells.Replace What:="Maerz", Replacement:="April", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="per 03", Replacement:="per 04", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Mrz", Replacement:="Apr", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next wks
Application.ScreenUpdating = True
If intCounter = 1 Then
MsgBox "Die aktive Arbeitsmappe hat 1 Arbeitsblatt!"
Else
MsgBox "Die aktive Arbeitsmappe hat " & _
intCounter & " Arbeitsblätter!"
End If
End Sub