Workbook.close läuft nicht
12.03.2022 10:02:45
Florian
kann mir jemand sagen warum der Workbooks.close nicht läuft und ich den LZF 91 "Index außerhalb des gültigen Bereichs" erhalte?
Sub Updateuebernahme()
Dim Dateiname
Dateiname = Application.GetOpenFilename(FileFilter:="xlsm-Dateien (*.xlsm), *.*)", Title:="Quelldatei auswählen")
If Dateiname = "Falsch" Then
MsgBox "Keine Datei ausgewählt!"
Else
If Dateiname False Then
Workbooks.Open (Dateiname)
UpdateuebernahmeDaten "SuSa 2021"
UpdateuebernahmeDaten "Buchungen 2021"
Workbooks(Dateiname).Close False
End If
End If
End Sub
Anzeige