folgenden Quellcode habe ich, aber es kommt immer die Meldung "Laufzeitfehler 9, Index außerhalb des gültigen Bereichs".
Die Tabellenblätter existieren jedoch definitiv in den beiden Dateien, die beide im demselben Ordner liegen. Statt der Variable "Datei habe ich alternativ auch "Quelldatei" oder den Dateinamen direkt mit Anführungszeichen verwendet. Immer wieder diese merkwürdige Fehlermeldung.
Woran stört Excel sich nur?
Private Sub kopieren()
Dim Quelldatei As Variant
Dim Datei As String
Quelldatei = Application.GetOpenFilename
Datei = Dateiname(Quelldatei)
'MsgBox (ActiveWorkbook.Name)
'MsgBox (Quelldatei)
'MsgBox (Datei)
ActiveWorkbook.Worksheets("IMPORT").Range("A1:K100").Value = Workbooks(Datei).Worksheets(" _
Kalender").Range("A1:K100").Value
Workbooks(Datei).Close False
End Sub
Function Dateiname(PfadmitDateiname As Variant) As Variant
Dim Teile As Variant
Teile = Split(PfadmitDateiname, "\")
Dateiname = Teile(UBound(Teile))
End Function
Vielen Dank für alle Hinweise
Viele Grüße
Mathias