Probleme beim Laden einer Tabelle

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

hi Rainer
gib das in ein modul ein!
und starte auto_close

Option Explicit

     Dim Cn%
     Dim CdbList()
     Dim Status_StandardBar As Boolean
     Dim Status_FormulaBar As Boolean
     Dim Status_HorScroll As Boolean
     Dim Status_StatusBar As Boolean
     Dim Status_VerScroll As Boolean
     Dim Status_Gridlines As Boolean
     Dim Status_Headings As Boolean
     Dim Status_WorkbookTabs As Boolean
     Dim xCn%
     Dim xCdbList()

     Sub auto_close()
     Dim bar
    For Each bar In Application.CommandBars
        bar.Enabled = True
        Next

     Dim Cdb As CommandBar
     Dim Ci%

     For Ci = 1 To Cn - 1
         Application.CommandBars(CdbList(Ci)).Visible = True
     Next Ci

     With ActiveWindow
         .DisplayHeadings = Status_Headings
         .DisplayHorizontalScrollBar = Status_HorScroll
         .DisplayVerticalScrollBar = Status_VerScroll
         .DisplayGridlines = Status_Gridlines
         .DisplayWorkbookTabs = Status_WorkbookTabs
     End With

     With Application
         .DisplayStatusBar = Status_StatusBar
         .DisplayFormulaBar = Status_FormulaBar
    End With

     CommandBars(1).Enabled = True

     'Dim Cdb As CommandBar

     'Wenn Titelleiste von Excel geändern werden soll
        Application.Caption = "" '"        Copyright by "

     'falls die eigenen Symbolleisten auch ausgeblendet werden sollen, dann
     'den Code 'And Cdb.BuiltIn = True' aus nachstehender Zeile entfernen
     Cn = 1
     For Each Cdb In Application.CommandBars
         If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
         'And Cdb.BuiltIn = True Then
             ReDim Preserve CdbList(Cn)
             CdbList(Cn) = Cdb.Name
             Cn = Cn + 1
             Cdb.Visible = True
         End If
     Next

     With ActiveWindow
         Status_HorScroll = .DisplayHorizontalScrollBar
         If .DisplayHorizontalScrollBar = False Then .DisplayHorizontalScrollBar = True

         Status_VerScroll = .DisplayVerticalScrollBar
         If .DisplayVerticalScrollBar = False Then .DisplayVerticalScrollBar = True

         Status_Gridlines = .DisplayGridlines
         If .DisplayGridlines = False Then .DisplayGridlines = True

         Status_Headings = .DisplayHeadings
         If .DisplayHeadings = False Then .DisplayHeadings = True

         Status_WorkbookTabs = .DisplayWorkbookTabs
         If .DisplayWorkbookTabs = False Then .DisplayWorkbookTabs = True

     End With

     With Application
         Status_StatusBar = .DisplayStatusBar
         If .DisplayStatusBar = False Then .DisplayStatusBar = True

         Status_FormulaBar = .DisplayFormulaBar
         If .DisplayFormulaBar = False Then .DisplayFormulaBar = True
     End With
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.DisplayFullScreen = False
End Sub

Gruss
Ivan

Beliebteste Forumthreads (12 Monate)

Probleme beim Laden einer Tabelle

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread