Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchen und Ersetzen mit Ergebinsliste

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

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

Betreff
Benutzer
Anzeige
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
Anzeige
AW: Suchen und Ersetzen mit Ergebinsliste
24.09.2009 09:53:54
Horst
Danke ....
Horst

323 Forumthreads zu ähnlichen Themen


Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
Anzeige

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
Anzeige

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige