Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Ersetzen in VBA - Meldungen verarbeiten

Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 09:18:33
Roland
Hallo an die Experten.
Folgendes Problem. Ich habe ein VBA-Makro, das die Suchen und Ersetzen-Funktion aus dem Dialog nutzt, um in parametrisierter Form Zellinhalte zu ersetzen.
Im Dialog erhalte ich dann so schöne Meldungen, dass z.B. der Suchtext nicht gefunden wurde oder dass es eben zu x Ersetzungen gekommen ist.
Diese Info würde ich gerne in einem Log-File meines Makros als Protokoll ausgeben. Habe aber bislang noch keinen Hinweis gefunden, wie ich auf diese Info im VBA-Code zugreifen kann.
Danke für entsprechende Hinweise im Voraus
Roland

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 09:43:44
Michael
Hallo!
Würde ich so machen:
Sub ReplaceLog()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Dim StrCache As String
Set Bereich = ActiveSheet.UsedRange
i = 0
For Each Zelle In Bereich
StrCache = Zelle.Text
Zelle.Replace What:="a", Replacement:="b", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
If StrCache  Zelle.Text Then i = i + 1
Next Zelle
Select Case i
Case Is > 0
MsgBox i & " Ersetzungen vorgenommen."
Case Else
MsgBox "Suchbegriff nicht gefunden. Keine Ersetzungen vorgenommen."
End Select
End Sub
LG
Michael

Anzeige
AW: Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 10:47:31
Roland
Danke für den Hinweis, Michael. Das funktioniert erst einmal so. Allerdings verliere ich so Performance :-(. Aber das lässt sich bestimmt noch optimieren.

AW: Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 11:08:05
Michael
Hallo!
Aber das lässt sich bestimmt noch optimieren.
Aber dazu lassen sich bestimmt noch mehr Informationen Deinerseits liefern (konkrete Verhältnisse in Deiner Mappe, wie groß ist der durchsuchte Bereich etc.).
Anderer Ansatz wäre folgender:
Sub ReplaceLog()
Dim Bereich As Range
Dim Zelle As Range
Dim SuchStr As String
Dim ErsatzStr As String
Dim Zaehler As Long
Set Bereich = ActiveSheet.UsedRange
SuchStr = "op"
ErsatzStr = "AA"
Zaehler = WorksheetFunction.CountIfs(Bereich, "*" & SuchStr & "*")
For Each Zelle In Bereich
Zelle.Replace What:=SuchStr, Replacement:=ErsatzStr, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next Zelle
MsgBox "Ersetzungen: " & Zaehler
End Sub
Lg
Michael

Anzeige
AW: Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 13:04:57
Roland
Die Story ist wie folgt: Ich ziehe mir via ODBC einen Datenbanktabelle mit ca. 100.000 Datensätzen nach Excel. In einem Feld dieser Tabelle sind Freitexte erfasst. In der Regel zwischen 500 und 1000 Zeichen groß. Auf diesen Freitextfeldern sollen Korrekturen im Suchen-und-Ersetzen-Verfahren angewendet werden. Dazu wird eine Liste der Ersetzungspärchen vorgegeben. Das werden voraussichtlich 50 sein / werden. Diese werden dann ausgeführt und sollen in der Gesamtheit protokolliert werden. Die Trefferquote wird zwischen 0 und 10.000 liegen. Anhand des Protokolls und einer Sichtprüfung wird die Änderung freigegeben und in Datenbank zurückgeschrieben.

Anzeige
AW: Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 13:22:12
Michael
Hallo!
Super Sache, aber wo benötigst Du jetzt Hilfe? Was ist Deine Frage?
Geht's um meine letzte Code-Variante oder...
LG
Michael

AW: Suchen und Ersetzen in VBA - Meldungen verarbeiten
16.03.2016 13:35:27
Roland
Alles gut inzwischen :-). Mit der CountIf-Methode bekomme ich meine Anzahl. Die Replace-Methode wende ich auf die gesamte Spalte an und gehe nicht über jede einzelne Zelle.
Das ist aktuell performant genug.
Danke für Interesse und Hilfe.
LG
Roland

Gerne, Danke für die Rückmeldung, owT
16.03.2016 13:48:42
Michael

331 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
1
1
3
2
10
7
8
7
4
5
4
6
2
2
13
3
9
3
4
2
3
3
1
2