Hi
Ich versuche eine Datei zu öffnen und in der Spalte B von Datei Test einen Namen zu suchen. Danach soll der Wert der eine Zelle weiter rechts steht kopiert werden und in die Datei "Meine Datei.xlm" in Zelle G51 zu kopieren.
Leider bleibt der Code bei Activesheet.Paste stehen. Beide Zellen haben das selbe Format
Ich habe das Forum schon massenhaft durchsucht und habe einige Codes gefunden aber nichts funktioniert
Workbooks.Open "C:\test.xlm", Password:="bkzwanip"
Unload UserForm1
Dim name As Range
Set name = ActiveSheet.Range("B:B").Find("Hans")
ActiveCell.Offset(0, 1).Copy Selection
Windows("meine Datei.xlm").Activate
Range("G51").Select
ActiveSheet.Paste
Windows("test.xlsm").Close False
Ich habe das schon mit dem Macrorecorder probiert und das funktioniert.
Könntet Ihr mal gucken wo da der Fehler ist?
Windows("test.xlsm").Activate
Range("C1194").Select
Selection.Copy
Windows("Meine Datei.xlsm").Activate
ActiveSheet.Paste
Danke
Gruss Tevery