Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige