VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen

Hallo Excel-Gemeinde,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MultiSuchenMitZaehlen() ' Suchbegriff in gesamter Mappe mit Zählen Dim x As Long, Y As Long Dim wks As Worksheet Dim rng As Range Dim sAddress As String, sFind As String sFind = InputBox("Bitte Suchbegriff eingeben:") For Each wks In Worksheets Set rng = wks.Cells.Find( _ What:=sFind, _ LookAt:=xlWhole, _ LookIn:=xlFormulas) If Not rng Is Nothing Then sAddress = rng.Address x = 0 Do Application.GoTo rng, True x = x + 1 Set rng = Cells.FindNext(after:=ActiveCell) If rng.Address = sAddress Then MsgBox x & " Fundstellen", vbInformation + vbOKOnly, "Fertig": Y = Y + x Exit Do End If Loop End If Next wks MsgBox "Gesamt Fundstellen = " & Y End Sub

Sub mcr_MultiSuchenMitZaehlen() ' Suchbegriff in gesamter Mappe mit Zählen Dim x As Long, Y As Long Dim wks As Worksheet Dim rng As Range Dim strAddress As String, strFind As String, strReplace As String strFind = InputBox("Bitte Suchbegriff eingeben:") strReplace = InputBox("Bitte den Zielbegriff eingeben:") For Each wks In Worksheets Set rng = wks.Cells.Replace(What:=strFind, Replacement:=strReplace, LookAt:=xlWhole, _ SearchOrder:=xlByColumns, MatchCase:=True) If Not rng Is Nothing Then strAddress = rng.Address x = 0 Do Application.Goto rng, True x = x + 1 Set rng = Cells.FindNext(after:=ActiveCell) If rng.Address = strAddress Then MsgBox x & " Ersetzungen", vbInformation + vbOKOnly, "Fertig": Y = Y + x Exit Do End If Loop End If Next wks MsgBox "Gesamte Ersetzungen = " & Y

Beliebteste Forumthreads (12 Monate)

VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

348 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

348 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread