Sub CopyDaten4()
Dim wksA1 As Worksheet, wksB1 As Worksheet
Dim wksA2 As Worksheet, wksB2 As Worksheet
Dim wbPfad As String    'Pfad für die zu öffnende Datei
Dim wbPfadGes As String 'Pfad und ZielName der Datei
Dim wbQuelle As String  'QuellName der Datei
Dim wbZiel As String    'ZielName der Datei
Dim TabGesN As String   'Name der Tabelle "GesamtabrechnungName"
Dim TabGes As String    'Name der Tabelle "Gesamtabrechnung"
wbPfad = Worksheets("Hilfstabelle").Range("X2") & "\" & Worksheets("Hilfstabelle").Range("A2") & _
wbQuelle = Worksheets("Hilfstabelle").Range("C2")
wbZiel = Worksheets("Hilfstabelle").Range("B2")
TabGesN = Worksheets("Hilfstabelle").Range("V3")
TabGes = Worksheets("Hilfstabelle").Range("V4")
wbPfadGes = wbPfad & wbZiel
'Debug.Print wbPfad
'Debug.Print wbQuelle
'Debug.Print wbZiel
'Debug.Print TabGesN
'Debug.Print TabGes
'Debug.Print wbPfadGes
Application.EnableEvents = False    'verhindert das Ausführen der Makros beim Öffnen der Datei - _
Aus
Workbooks.Open Filename:=wbPfadGes    'funktioniert
Application.EnableEvents = True    'verhindert das Ausführen der Makros beim Öffnen der Datei -  _
Ein
Set wksA1 = Workbooks("Kopierkostenabrechnung.xlsm").Worksheets("GesamtabrechnungName")
Set wksB1 = Workbooks("Kopierkostenabrechnung_Basis.xlsm").Worksheets("GesamtabrechnungName")
wksA1.Range("H2:H501").Copy wksB1.Range("H2")
Set wksA2 = Workbooks("Kopierkostenabrechnung.xlsm").Worksheets("Gesamtabrechnung")
Set wksB2 = Workbooks("Kopierkostenabrechnung_Basis.xlsm").Worksheets("Gesamtabrechnung")
wksA2.Range("H2:H501").Copy wksB2.Range("H2")
Application.DisplayAlerts = False
Workbooks(wbZiel).Save  'funktioniert
Workbooks(wbZiel).Close 'funktioniert
Application.DisplayAlerts = True
End Sub