Autofilter deaktiviert

Forumthread: Autofilter deaktiviert

10.07.2003 15:44:17

N. Davidheimann

Hallo allerseits,

habe eine Arbeitsmappe, in der das Icon für den Autofilter deaktiviert ist. Kann keinen Grund erkennen. Hat jemand eine Idee ??

Gruß
Norbert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter deaktiviert

10.07.2003 16:04:31

ivan
An Ivan: vielen Dank o.T.

10.07.2003 16:33:22

N. Davidheimann

AW: Autofilter deaktiviert

10.07.2003 16:04:31

ivan

hi Norbert
versuch es damit!
alles in ein modul
und führe auto close aus

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

An Ivan: vielen Dank o.T.

10.07.2003 16:33:22

N. Davidheimann

Beliebteste Forumthreads (12 Monate)

Forumthread: Autofilter deaktiviert

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread