Ich habe 2 Excel Datein. Ich möchte von einer in die andere Daten kopieren.
Den Command Workbook(Pfad) kann ich nicht benutzen, ich muss also irgendwie mit GetObject klar kommen

Ich habe leider erst letzte Woche mit VBA angefangen und bin deswegen für jede Hilfe und Kritik dankbar.

Folgende Code:

'Neue Mitarbeiter Erfassen, es werden Name, (Arbeits-)Bereich und (Einstellungs-)Datum gelesen,
'dann in der Exceldatei Neue Mitarbeiter Ausscheidende Mitarbeiter eingetragen
Sub NMErfassung()
   
    Dim SrcBook As Workbook
    Dim SrcSheet As Worksheet
    Dim DestBook As Workbook
    Dim DestSheet As Worksheet
   
    'Pfade
    Set SrcBook = GetObject(Pfad1\Data1.xlsm)
    Set SrcSheet = SrcBook.Worksheets("Tabelle1")
    Set DestBook = GetObject("Pfad2\Data2.xlsx")
    Set DestSheet = DestBook.Worksheets("Tabelle1")
   
    'Mitarbeiter Infos aus MacroSheet kopieren
    Windows(Data1.xlsm).Visible = True
    SrcBook.SrcSheet.Range("G15:G17").Select
    Selection.Copy
    Windows(Data1.xlsm).Visible = False

    'MA Infos in NM einfügen
    Windows("Data2.xlsm").Visible = True
    DestBook.DestSheet.Cells(Rows.Count, B).End(xlUp).Row.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Windows("Data2.xlsm").Visible = False
   
End Sub

VG

GeGe