Herbers Excel-Forum - das Archiv

Suchen/Ersetzen: Anzahl Ersetzungen

Bild

Betrifft: Suchen/Ersetzen: Anzahl Ersetzungen
von: schoentalegg

Geschrieben am: 08.04.2005 21:02:41
Hallo Leute
Wie kann man in VBA in der copy-paste Funktion die Anzahl Ersetzungen abrufen (diese wird ja, wenn man "suchen/ersetzen" manuell macht, am Schluss in einem Dialog angezeigt)?
Ich brauche das für eine Log-Datei, die mir ein Programm erstellt, das in unzähligen Dateien Textteile ersetzen muss.
Viele Grüsse und danke zum voraus.
schoentalegg
Bild

Betrifft: AW: Suchen/Ersetzen: Anzahl Ersetzungen
von: Ramses

Geschrieben am: 08.04.2005 21:37:02
Hallo
mal als Beispiel
Option Explicit
Sub Replace_Mass()
Dim myC As Range, repCounter As Integer
Dim toFind As String, toRepl As String, sAddress As String
repCounter = 0
toFind = "Muster"
toRepl = "Mann"
For Each myC In ActiveSheet.UsedRange
Set myC = Cells.Find(What:=toFind, _
LookAt:=xlPart, LookIn:=xlFormulas)
If Not myC Is Nothing Then
myC.Replace What:=toFind, Replacement:=toRepl, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Set myC = Cells.FindNext(after:=ActiveCell)
repCounter = repCounter + 1
End If
Next myC
If repCounter > 0 Then
MsgBox repCounter & " Ersetzungen vorgenommen"
Else
MsgBox "Suchbegriff nicht gefunden"
End If
End Sub

Gruss Rainer
Bild

Betrifft: AW: Suchen/Ersetzen: Anzahl Ersetzungen
von: schoentalegg
Geschrieben am: 08.04.2005 21:47:56
Hallo Rainer
wow - soviel Code ist dafür nötig! Aber es funktioniert, das ist wichtig.
Vielen Herzlichen Dank
Viele Grüsse
schoentalegg
 Bild
Excel-Beispiele zum Thema "Suchen/Ersetzen: Anzahl Ersetzungen"
Seitenanzahl eintragen Funktion ANZAHL2 ohne ausgeblendete Spalten
Anzahl der über ParamArray festgelegten Parameter Anzahl eines bestimmten Wochentages im Monat
Anzahl der einzufügenden Zeilen abfragen Bestimmte Anzahl von Zeichen zulassen
Seitennummer und Seitenanzahl per VBA in Kopfzeile Nur AJM in TextBox akzeptieren und Anzahl zählen
Anzahl von CheckBoxes in einer UserForm ermitteln Anzahl der gelb hinterlegten Zellen ermitteln