Suchen/Ersetzen: Anzahl Ersetzungen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Suchen/Ersetzen: Anzahl Ersetzungen"