Liebe Mitglieder
bei folgendem Code bekomme ich den Laufzeitfehler Nr. 9 und zwar in der DRITTEN Zeile von unten:, danke.
Sub DatenImport()
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
Dim range As Object
Application.ScreenUpdating = False
'1 Überträge Dezember kopieren
WbQ = Application.GetOpenFilename(filefilter:="ExcelFile,*.xl*;*.xm*")
If WbQ False Then
Set WbQ = Workbooks.Open(Filename:=WbQ)
End If
WbZ.Activate
For i = 3 To 25 'bis MA 25
WbZ.Sheets(i).range("J38") = WbQ.Sheets(i).range("J494")
Next i
WbQ.Close False 'Optional Quell-Mappe ohne Speichern schließen