Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
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
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zellen in mehreren Dateien ersetzen

Mehrere Zellen in mehreren Dateien ersetzen
24.09.2019 10:11:26
Tristan
Hallo zusammen
Ich stehe vor der Aufgabe, in mehreren Excel-Dateien (rund 250, alle mit 4-12 Tabellenblättern) jeweils mehrere Zellen zu ersetzen. Zu ersetzen sind rund 350 Ausdrücke.
Für die einzelnen Teilaufgaben habe ich jeweils einen Code gefunden:
https://www.extendoffice.com/de/documents/excel/1873-excel-find-and-replace-multiple-values-at-once.html
- mehrere Ausdrücke ersetzen
https://microsoft.public.de.excel.narkive.com/o6H7QR5G/suchen-ersetzen-in-mehreren-excel-files
- in mehreren Dateien ersetzen
Nun, wie kann ich die beiden Codes kombinieren? Mangels VBA-Kenntnissen blieben meine eigenen Schnipseleien erfolglos.
Vielen Dank im Voraus für eure Hilfe
Tristan

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zellen in mehreren Dateien ersetzen
24.09.2019 10:20:17
Daniel
Hi
im Prinzip so.
die 350 Ausdrücke müssen in der Datei mit dem Makro in Tabelle1 Spalte A (alt) und Spalte B (neu) lückenlos stehen:
Sub ersetzen()
Dim dateien
Dim Wörter
Dim W As Long
dateien = Application.GetOpenFilename _
("Excel-Dateien (*.xls), *.xls", MultiSelect:=True)
Wörter = ThisWorkbook.Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Value
Application.ScreenUpdating = False
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i)
With ActiveWorkbook
For n = 1 To .Sheets.Count
For W = 1 To UBound(Wörter)
.Sheets(n).Cells.Replace What:=Wörter(W, 1), _
Replacement:=Wörter(W, 2), _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next
Next
.Save
.Close
End With
Next
End If
End Sub
gruß Daniel
Anzeige
AW: Mehrere Zellen in mehreren Dateien ersetzen
24.09.2019 10:38:51
Tristan
Hi Daniel
Im Prinzip ist das genial!
Vielen Dank dir! (:
Liebe Grüsse
Tristan

117 Forumthreads zu ähnlichen Themen

Was bedautet das ^ Zeichen in Formeln
Rocky

Hallo Excelfreunde,
bin jetzt des öffteren auf Formeln gestoßen die dieses Zeichen drin haben: ^
Was heißt das? und macht es?
Danke an alle
Gruß Rocky
25.11.2008 10:39:00
Thread-ID: 1027608
3 Beiträge
Anzeige
aktive Zelle mit einer Tastenkombination vergrö
Karsten


Hallo...
Gibt es die Möglichkeit, die aktive Zelle mit einer Tastenkombination zu vergrößern?
Danke für eure Hilfe.
Gruß
Karsten
25.02.2009 12:57:23
Thread-ID: 1053854
6 Beiträge
Sonderzeichen als Ergebnis einer Formel
MikeS

Hallo,
gibt es eine Möglichkeit, in der nachfolgenden Formel das Sonderzeichen VOLLER BLOCK zu wiederholen?
Ich möchte mir eine separate Hilfszelle sparen.
Das nachfolgende Beispiel ergibt leider einen Fehler!
=WIEDERHOLEN(█;B7*8)
Vielen Dank
Mike
02.03.2009 09:11:00
Thread-ID: 1055413
2 Beiträge
Anzeige
Gültigkeitsprüfung in Bezug auf mehrere Zellen
Erwin

Geschätztes Forum!
Ich möchte gerne eine Gültigkeit definieren und zwar:
Wenn in Zelle A1 oder B1 oder C1 etwas steht, dann darf in Zelle D1 nichts mehr geschrieben werden oder alternativ in Zelle D1 nur mehr 0 (null) stehen. Bitte ohne VBA.
Danke im Voraus für Eure Hilfe !!!
Er...
09.07.2009 14:45:07
Thread-ID: 1087437
5 Beiträge
Was bedeutet das Zeichen "^" in Formeln
Merlin

Was bedeutet das Zeichen "^" in Formeln?
21.10.2009 10:45:46
Thread-ID: 1111008
6 Beiträge
Anführungszeichen in Formel notwendig
Rene

Hallo Zusammen
Ich habe eine Formel, die ich so einsetzen muss:
=bpContent("Grob, Rene";"_phone")~f~ --> Im Hintergrund läuft dann via ein Add-In eine DB-Abfrage und in der entsprechenden Zelle wird mir dann die "phonenummer" reingeschrieben.
Ich möchte nun mit dieser Form...
15.12.2009 10:44:33
Thread-ID: 1123976
18 Beiträge
Suchen von Zeichen in Formeln
sam
Hi Frank,du hast es erraten. "Bearbeiten" - "Ersetzen" (oder [STRG]+Hund wenn du es im VB brauchst, schlage ich vor, du läßt dir die Befehle aufzeichnen.
Gruß,
Sam
15.04.2002 11:25:20
Thread-ID: 113337
4 Beiträge
Wenn-Formel in Abh. von 1. Zeichen in Zelle
1.

Hallo zusammen,
kennt jemand eine Wenn-Funktion die das erste Zeichen einer Zelle bewertert?
Sachverhalt:
A1: 0123423; die erste Ziffer ist eine Null
A2: 1123423; die erste Ziffer ist keine Null
Der Zellinhalt (A1 und A2) stellt Filialnummern dar, die je nachdem ob vorne ei...
17.02.2010 14:13:20
Thread-ID: 1139231
3 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
2
11
5
1
2
4
5
17
3
2
5
3
13
2
5
3
2
5
12
6
2
5
2
1
1