Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:58:02
Samuel
Das Makro läuft auf dem Excel 365 durch. Wenn ich dieses mit dem Excel 2016 durchführe, dann geht das nicht.
Bei der Zeile Set wsDestWS1 = wbDest.Sheets("Worksheet 1") erscheint der Laufzeitfehler 9.
Frage:
Ist es mögich, dass das an der Version liegt?
Wird hier das Workbook nicht richtig erkannt?
Das Workbook wbDest wird wie folgt definiert.
-----------
Function GetPathwDestiny() As String 'mit dieser Funktion geht ein Fenster auf, in dem der User den Speicherort der xlsx-Datei angeben kann
' Display a dialog box to open a file and return the selected file path
MsgBox ("Bitte wähle die Datei der zu bearbeitenden Personenliste aus.")
GetPathwDestiny = Application.GetOpenFilename("Excel Files (*.xls; *.xlsx), *.xls; *.xlsx", Title:="Select the destination file")
End Function
filePathDest = GetPathwDestiny() ' Corrected variable name
Set wbDest = Workbooks.Open(filePathDest)
----------
Dateien:
https://www.herber.de/bbs/user/168858.xlsm, Speichern unter: C:\TEMP\Offerte_Import_Vorlage_sl.xlsm
https://www.herber.de/bbs/user/168859.xlsx speichern unter: C:\TEMP\Personenliste SL.xlsx
-------
Danke vielmals für euren wertvollen Input. :)
PS: da ich noch nicht geübt bin mit VBA, ist der Code nicht so schön zu lesen.
Anzeige
