Suchen und Ersetzen mit Ergebinsliste

Forumthread: Suchen und Ersetzen mit Ergebinsliste

Horst

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

AW: Suchen und Ersetzen mit Ergebinsliste

24.09.2009 09:33:51

Chris

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

AW: Suchen und Ersetzen mit Ergebinsliste

24.09.2009 09:53:54

Horst

Danke ....
Horst

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen mit Ergebinsliste

Forumthread: Suchen und Ersetzen mit Ergebinsliste

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Suchen und Ersetzen mit Ergebinsliste

Forumthread: Suchen und Ersetzen mit Ergebinsliste

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread