Suchen und Ersetzen mit Ergebinsliste

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
------------------------------------------------------------------------
Soweit so gut...
Am ende erscheint eine MsgBox mit der Information wieviel gefunden und ersetzt worden ist aber diese Funktionalität gibt es nicht wenn ich das aufgezeichnete Makro noch einmal per Hand ausführe.
Nun möchte ich mir aber am Ende eine Ergebnisliste anzeigen lassen. Mit den Informationen wo was gefunden und ersetzt worden ist.
Wie komme ich an diese Information heran?
Gruß
Horst

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Servus,
das sollte reichen:
Option Explicit

Sub ttt()
Dim AdressArray(), rSuche As Range, strErste As String, x As Long, I As Long, sCode As String
Set rSuche = ActiveSheet.Cells.Find(What:="ABC", LookIn:=xlValues, LookAt:=xlPart)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
ReDim Preserve AdressArray(x)
AdressArray(x) = rSuche.Address
x = x + 1
Set rSuche = ActiveSheet.Cells.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Es wurden keine Treffer erzielt!"
Exit Sub
End If
sCode = AdressArray(0) & Chr(13)
ActiveSheet.Range(AdressArray(0)).Replace What:="ABC", Replacement:="def", LookAt:=xlPart,  _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
For I = 1 To UBound(AdressArray())
sCode = sCode & AdressArray(I) & Chr(13)
ActiveSheet.Range(AdressArray(I)).Replace What:="ABC", Replacement:="def", LookAt:=xlPart,  _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next I
MsgBox "Es wurden " & UBound(AdressArray()) + 1 & " Ersetzungen in folgenden Adressen  _
vorgenommen: " & Chr(13) & Chr(13) & sCode
End Sub

Das Makro kommt entweder in ein allgemeines Modul oder direkt in das Tabellenmodul.
Gruß
Chris

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen mit Ergebinsliste

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen mit Ergebinsliste

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

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread