Liebe Mitglieder,
ich bekomme immer eine Fehlermeldung in der drittletzten Zeile von unten ( WbZ.Worksheets(i).Range("J38") = WbQ.Worksheets(i).Range("I248"),
die auskommentierte Zeile 'Set WbQ = Workbooks.Open(Pfad & Datei) hilft auch nicht weiter.
Ihr könnt mir als Anfänger sicher einen Tipp geben, DANKE.
Sub DatenExport()
'1 Überträge kopieren
Dim WbZ As Workbook: Set WbZ = ThisWorkbook 'Ziel-Mappe = DIE Vorlagen-Mappe
Dim Datei$, i&
Dim dialog As Object
Dim fileSaveName As Variant
Dim Pfad As Variant
Dim WbQ As Variant
Application.ScreenUpdating = False
Pfad = "Q:\Personal Leitung\Abrechnung\Gehaltsläufe\2016\BPx\" 'schließenden "\" beachten
WbQ = Application.GetOpenFilename(filefilter:="ExcelFile,*.xl*;*.xm*")
If WbQ False Then
Workbooks.Open Filename:=WbQ
End If
'Set WbQ = Workbooks.Open(Pfad & Datei)
WbZ.Activate
For i = 3 To 17
WbZ.Worksheets(i).Range("J38") = WbQ.Worksheets(i).Range("I248")
Next i
WbQ.Close False 'Optional Quell-Mappe ohne Speichern schließen