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"