Guten Morgen,
Mit dem Makro Recorder kommt man leider nicht soweit
Windows("Eintrag.xls").Range("G8").Select
Selection.Copy
Windows("EingabeMaske.xls").Activate
Range("D9:D38").Select
Selection.Find(What:="David Gane ", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Windows("Eintrag.xls").Activate
Range("L8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("EingabeMaske.xls").Activate
Range("D15:D17").Select
ActiveSheet.Paste
Windows("Eintrag.xls").Activate
Range("F9").Select
Application.CutCopyMode = False
Eigentlich soll aus dem TabellenBlatt "EingabeMaske" in Spalte D bis Zeile 533 nach dem Wert aus aus dem TabaellenBlatt "Eintrag" Zelle G8 gesucht werden.
Wenn der Wert gefunden wurde soll er durch den Wert aus TabellenBlatt "Eintrag" Zelle L8 ersetzt werden.
Mit dem Makro funktioniert das leider nur EINMAL ! ! !
Hat jemand die Freundlichkeit mir bei dieser Aufgabenstellung zu helfen, Lösungsvorschlag anzubieten, ich wäre sehr dankbar.
Mit freundlichen Grüßen
Jürgen