Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen/Ersetzen: Anzahl Ersetzungen

Forumthread: Suchen/Ersetzen: Anzahl Ersetzungen

Suchen/Ersetzen: Anzahl Ersetzungen
08.04.2005 21:02:41
schoentalegg
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen/Ersetzen: Anzahl Ersetzungen
08.04.2005 21:37:02
Ramses
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
Anzeige
AW: Suchen/Ersetzen: Anzahl Ersetzungen
08.04.2005 21:47:56
schoentalegg
Hallo Rainer
wow - soviel Code ist dafür nötig! Aber es funktioniert, das ist wichtig.
Vielen Herzlichen Dank
Viele Grüsse
schoentalegg
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige