Laufzeitfehler 424 bei Application.GetOpenFileName
31.07.2019 12:07:38
Nitokris
es ist sicher ein ganz dummer Anfängerfehler, aber ich komme einfach nicht drauf, woran es liegen könnte:
Ich möchte eine Datei per Auswahldialog öffnen und dann bestimmte Inhalte daraus in meine Zieldatei kopieren. Der Code bringt zwar das gewünschte Ergebnis, endet aber stets mit einem Laufzeitfehler 424, Objekt erforderlich
Sub Test()
Dim Auswahl As Variant
Dim wb1 As Workbook
Dim wb2 As Workbook
Application.ScreenUpdating = False
Auswahl = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsx;*.xlsm), *. _
xlsx; *.xlsm", Title:="Eine Datei auswählen")
If Auswahl = False Then Exit Sub
Set wb1 = Workbooks.Open(Filename:=Auswahl)
Set wb2 = ThisWorkbook
With wb2.Worksheets("Tabelle1")
.Range("B10").Formula = wb1.Worksheets("Tabelle1").Range("A47").Formula
End With
Auswahl.Close savechanges:=False
Set Auswahl = Nothing
Application.ScreenUpdating = True
End Sub
Woran könnte das liegen?
Danke und viele Grüße
Nitokris