Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1500to1504
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
Inhaltsverzeichnis

VBA zwei Arbeitsmappen suchen u. ersetzen

VBA zwei Arbeitsmappen suchen u. ersetzen
06.07.2016 04:33:30
Jürgen
Hallo und guten Morgen,
bei folgendem Makro befinden sich die Tabellen-Blätter in der selben Arbeitsmappe, jetzt wäre es wünschenswert,
wenn dieses Makro auch funktionieren würde, wenn die Tabellen-Blätter in unterschiedlichen Arbeitsmappen sind.
Gestartet wird das Makro aus dem Tabellen-Blatt "Eintrag"
Ich gehe mal davon aus, dass die Variablen angepasst und der Pfad zur Arbeitsmappe 02 eingefügt werden muss.
Zum besseren Verständnis:
In dem TabellenBlatt "EingabeMaske" soll in Spalte D in den Zellen 1 - 533 nach dem Wert aus TabellenBlatt "Eintrag" Zelle G8 gesucht werden.
Wenn der Wert gefunden wurde, soll er durch den Wert aus TabellenBlatt "Eintrag" Zelle L8 ersetzt werden, sonst mach nichts und spring wieder zurück zum TabellenBlatt "Eintrag".
Das Makro wird aus dem TabelelenBlatt "Eintrag" gestartet
Wenn mir hierbei jemand behilflich sein könnte, das wäre wunderbar
Mit freundlichen Grüßen
Jürgen
Sub suchen()
Dim zellen As Range
Dim rng As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("EingabeMaske") ' Arbeitsmappe 02
Set ws2 = Worksheets("Eintrag")      ' Arbeitsmappe 01
Set rng = ws1.Range("D1:D533")
For Each zellen In rng
If zellen Like ws2.Range("G8") Then zellen = ws2.Range("L8")
Next
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: VBA zwei Arbeitsmappen suchen u. ersetzen
06.07.2016 06:28:07
Almidagu
Guten Morgen, probier bitte mal:

Sub suchen()
Dim zellen As Range
Dim rng As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Workbooks("Mappe1.xlsm").Worksheets("EingabeMaske")
Set ws2 = Workbooks("Mappe2.xlsm").Worksheets("Eintrag")
Set rng = ws1.Range("D1:D533")
For Each zellen In rng
If zellen Like ws2.Range("G8") Then zellen = ws2.Range("L8")
Next
Set rng = Nothing
Set ws1 = Nothing
Set ws2 = Nothing
End Sub
Grüße

AW: VBA zwei Arbeitsmappen suchen u. ersetzen
06.07.2016 07:11:23
Jürgen
Guten Morgen Almidagu,
herzlichen Dank, funktioniert wunderbar
ich wünsche Dir noch einen schönen Tag.
Beste Grüße
Jürgen
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige