VBA zwei Arbeitsmappen suchen u. ersetzen
06.07.2016 04:33:30
Jürgen
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
Anzeige