Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.12.2023 18:26:14
Ausgabe mehrere Merkmale
09.12.2023 13:47:07
Formel in engl. Version umsetzen
09.12.2023 11:41:57
Farbige Benachrichtigung bei zu geringer Pausenzeit
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
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
Trennzeichen in Formel ist verändert
kv21

hallo
Ich habe mein Excel gestartet und ein Sheet geladen.
Die Formeln sind komischer weise verändert. Die trennzeichen in der Formel sind nicht ; wie normal sondern ein Punkt "."!
Beispiel: soll: =wenn(A1=0;B3;c3)
ist: =wenn(A1=0.B3.c3)
Wie stell ich das wieder ric...
23.01.2009 17:33:00
Thread-ID: 1043088
12 Beiträge
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
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(█;4)
Vielen Dank
Mike
02.03.2009 09:11:53
Thread-ID: 1055414
3 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige