Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und ersetzen in vielen Datein

Forumthread: Suchen und ersetzen in vielen Datein

Suchen und ersetzen in vielen Datein
18.03.2022 15:51:30
Christoph
Hallo!
Habe folgenden Problem.
Ich muss mehrere Dateien mit suchen und ersetzen bearbeiten. Die Dateien sind schreibgeschützt (Passwort: Test PW)
Den Text den ich Suche und ersetzen möchte wurde mit Umbrüche eingegeben:
Text Alt:
"Frau
MAX
1"
Text Neu:
"Herr
Blah
2"
Da ich mehrere Hundert Dateien bearbeiten muss wäre ein Makro perfekt. hat jemand eine Idee?
LG
Christoph
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ohne Datei keine Bastelei
18.03.2022 16:02:24
Yal
Hallo Christoph,
sehr Süß, dass Du uns ein Passwort gibt. Aber ohne Datei, das ist wie ein Schlüssel ohne Schloss. Post mal eine Datei.
Du hast bestimmt die Kette "Datei öffnen, Schreibschutz aufheben, Suchen-Ersetzen, Schreibschutz wieder einstellen, Speichern, Schliessen" unter laufende Makrorekorder aufegenommen oder? Dann was Dir fehlt, ist die Schleife über verschiedene Dateien, richtig?
VG
Yal
Anzeige
AW: Ohne Datei keine Bastelei
18.03.2022 16:40:06
Yal
Hallo Christoph,
sieht gut aus. Ausser ein paar Korrekturen, um zu sichern, dass es so läuft, aber wo ist das Problem?

Sub ersetzen()
Dim Dateien
Dim i
Dim wb As Workbook
Dim ws As Worksheet
Dateien = Application.GetOpenFilename("Excel-Dateien (*.xls*), *.xls*", MultiSelect:=True)
Application.ScreenUpdating = False
If IsArray(Dateien) Then
For i = 0 To UBound(Dateien)
Set wb = Workbooks.Open(Dateien(i))
For Each ws In wb.Worksheets
ws.Unprotect Password:="Test PW"
ws.Cells.Replace What:="Frau Max 1", _
Replacement:="Herr Blah 2", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
ws.Protect Password:="Test PW"
Next
wb.Save
wb.Close
Next
End If
Application.ScreenUpdating = True
End Sub
VG
Yal
Anzeige
AW: Ohne Datei keine Bastelei
18.03.2022 16:48:20
Christoph
Es kommt die Meldung "Index außerhalb des gültigen Bereichs"
Die Arbeitsmappe ich auch noch geschützt. Daran liegt es aber nicht.
AW: Ohne Datei keine Bastelei
18.03.2022 17:37:53
Yal
ändere in
For i = 1 To UBound(Dateien)
AW: Ohne Datei keine Bastelei
18.03.2022 17:51:53
Christoph
Wurde der Text mit Alt+Enter umbrochen funktionier es aber nicht.
Anzeige
AW: Ohne Datei keine Bastelei
18.03.2022 18:14:40
Yal
geht es auch ausführlicher?
Sorry, aber dein Engagement vernichtet meine Motivation.
Viel Erfolg. Ich lasse es für Dich offen.
VG
Yal
AW: Ohne Datei keine Bastelei
18.03.2022 18:54:03
Christoph
Sorry. Anbei eine Datei an der du mein Problem sofort erkennen kannst.
https://www.herber.de/bbs/user/151853.xlsx
LG
Christoph
Anzeige
AW: Ohne Datei keine Bastelei
18.03.2022 19:30:21
Yal
Es gibt sogar Leute, die das mit Worte beschreiben. Mit vollständigen Sätze. 

Sub Ersetzen()
Dim Dateien
Dim Datei
Dim wb As Workbook
Dim ws As Worksheet
Dim Protec
Dateien = Application.GetOpenFilename _
("Excel-Dateien (*.xls*), *.xls*", MultiSelect:=True)
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Datei In Dateien
Set wb = Workbooks.Open(Datei)
wb.Unprotect Password:="Test PW"
For Each ws In wb.Worksheets
Protec = ws.ProtectionMode
If Protec Then ws.Unprotect Password:="Test PW"
ws.Cells.Replace _
What:="Frau Max 1", _
Replacement:="Herr Blah 2", _
LookAt:=xlPart, MatchCase:=False
ws.Cells.Replace _
What:=Replace("Frau Max 1", " ", vbCr), _
Replacement:="Herr Blah 2", _
LookAt:=xlPart, MatchCase:=False
If Protec Then ws.Protect Password:="Test PW"
Next
wb.Protect Password:="Test PW"
wb.Save
wb.Close
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
EoM
VG
Yal
Anzeige
AW: Ohne Datei keine Bastelei
18.03.2022 20:37:59
Christoph
Sorry! Werde dies beim nächsten mal ausführlicher beschreiben.
Eine Frage habe ich noch. Leider habe ich gesehen, dass es auch ausgeblendete Tabellenblätter gibt welche ich ändern muss.
Ist es auch möglich diese abzufangen?
Herzlichen Dank für deine Hilfe!!!
LG
Christoph

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Anzeige
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", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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