Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
Zitat von: Andre.Heisig am November 19, 2025, 11:13:27Frage an @Knobbi38 und @PhilS: Teilt ihr Christian's (wir hatten einen längeren Austausch per PM) Einschätzung, dass die Betriebsstabilität des Access-Backends nicht unmittelbar gefährdet ist?Ja, absolut.

...
winCount = ExcelObj.Parent.Windows.Count()
ExcelObj.Parent.Windows(winCount).Visible = True
...
ExcelObj.Parent.Windows(winCount).FreezePanes = True
...
DoCmd.TransferSpreadsheet acExport, 10, "tmpQuery", ExcelDatNam, True, "Tabellenname" On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo Fehler
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(ExcelDatNam)
Set xlSheet = xlBook.Worksheets(ExcelTabNam)
With xlSheet
.Columns("A:K").AutoFit
.Rows("2:2").Select
.ActiveWindow.FreezePanes = True
End With