ich möchte gern bei allen Tabellen dies durchführen:
(hatta aufgezeichnet)
With ActiveWindow
.DisplayWorkbookTabs = True 'Sheets eiblenden
.DisplayHeadings = True 'Zeilen Spaltenüberschriften
.DisplayVerticalScrollBar = True 'vertikale Bildlaufleiste
.DisplayHorizontalScrollBar = True
End With
With Application
.DisplayFormulaBar = True 'True,Bearbeitungsleiste angezeigt
.DisplayStatusBar = True 'True,Statusleiste angezeigt
End With
gr Kurt P