Anfängerfrage

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Anfängerfrage
von: Dirk
Geschrieben am: 26.02.2005 13:53:20
Hallo zusammen!!
Habe hier im Forum viel über den Befehl activewindow gelesen und bin sehr angetan, wer kann mir sagen, wie genau und wo ein solcher befehl eingetragen werden muss?
Ich wollte tbellenreiter und excelsymbolleisten ausblenden für bestimmte tabellen.
Liebe Grüße Dirk

Bild

Betrifft: AW: Anfängerfrage
von: GraFri
Geschrieben am: 26.02.2005 15:02:45
Hallo
Vielleicht hilft dir folgender Code weiter.


      
'In ein MODUL

Option Explicit
Dim Cn%
Dim CdbList()
Dim Status_FormulaBar   As Boolean
Dim Status_HorScroll    As Boolean
Dim Status_VerScroll    As Boolean
Dim Status_StatusBar    As Boolean
Dim Status_Gridlines    As Boolean
Dim Status_Headings     As Boolean

Sub Auto_Open()
Dim Cdb As CommandBar
'Wenn Titelleiste von Excel geändern werden soll
'Application.Caption = "Meine Mustervorlage"

'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 And Cdb.BuiltIn = True Then
        
ReDim Preserve CdbList(Cn)
        CdbList(Cn) = Cdb.Name
        Cn = Cn + 1
        Cdb.Visible = 
False
    
End If
Next
'Stellt den Status fest und blendet alles aus
With ActiveWindow
    Status_HorScroll = .DisplayHorizontalScrollBar
    
If .DisplayHorizontalScrollBar = True Then .DisplayHorizontalScrollBar = False
    Status_VerScroll = .DisplayVerticalScrollBar
    
If .DisplayVerticalScrollBar = True Then .DisplayVerticalScrollBar = False
    
    Status_Gridlines = .DisplayGridlines
    
If .DisplayGridlines = True Then .DisplayGridlines = False
    
    Status_Headings = .DisplayHeadings
    
If .DisplayHeadings = True Then .DisplayHeadings = False
End With
With Application
    Status_StatusBar = .DisplayStatusBar
    
If .DisplayStatusBar = True Then .DisplayStatusBar = False
    
    Status_FormulaBar = .DisplayFormulaBar
    
If .DisplayFormulaBar = True Then .DisplayFormulaBar = False
End With
'Menüleiste
CommandBars(1).Enabled = False
End Sub

Sub Auto_Close()
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
End With
With Application
    .DisplayStatusBar = Status_StatusBar
    .DisplayFormulaBar = Status_FormulaBar
End With
CommandBars(1).Enabled = 
True
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0

mfg, GraFri
Bild

Betrifft: AW: Anfängerfrage
von: Dirk
Geschrieben am: 26.02.2005 15:27:53
Lieben Dank so hatte ich mir das vorgestellt, bis auf das die reiter der einzelnen tabellenblätter noch zu sehen sind, werde mich aber mal mit deinem code auseinandersetzen und wer weiß vielleicht habe ich ihn ja dann irgendwann auch verstanden.
Grüße
Dirk
Bild

Betrifft: AW: Anfängerfrage
von: GraFri
Geschrieben am: 26.02.2005 16:13:32
Hallo
Ein- bzw. ausblenden der Tabellenreiter.


      
' Tabellenreiter ausblenden
    ActiveWindow.DisplayWorkbookTabs = False

' Tabellenreiter einblenden
    ActiveWindow.DisplayWorkbookTabs = True
 

     Code eingefügt mit Syntaxhighlighter 3.0


mfg, GraFri
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Stunden umrechnen"