mein Problem besteht darin, dass ich von einer frei wählbaren Excel-Datei das Speicherdatum auslesen und in meine Hauptdatei einfügen möchte. Mein Ansatz ist dieser:
Sub übernahme()
Application.ScreenUpdating = False
Dim startblatt As Worksheet
Set startblatt = ActiveSheet
Sheets("Daten").Select
Dim wksZiel As Worksheet
Dim wkbQuelle As Workbook, wksQuelle As Worksheet
Dim varDateiname As Variant
Dim Datum As Date
Set wksZiel = ActiveSheet
varDateiname = Application.GetOpenFilename(Filefilter:="Excel (*.xlsx),*.xlsx", _
Title:="Bitte Datei mit den zu importierenden Daten auswählen") _
If varDateiname False Then
Datum.Value = FileDateTime(varDateiname) Hier bricht VBA ab!
Set wkbQuelle = Application.Workbooks.Open(varDateiname, ReadOnly:=True)
Set wksQuelle = wkbQuelle.Worksheets(1)
wksQuelle.Range("A1:L150").Copy
With wksZiel
.Cells(2, 2).PasteSpecial Paste:=xlPasteFormats
.Cells(2, 2).PasteSpecial Paste:=xlPasteValues
'.Range("B1").Value = "'" & wksQuelle.Cells(1, 5).Text
End With
Application.CutCopyMode = False
wkbQuelle.Close savechanges:=False
End If
Sheets("Start").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("a9").Value = Date
Range("b9").Value = Time
Range("a12").Value = Datum
Vielen Dank für eure Bemühungen.
René