Alle Tabellen, nicht nur die aktive

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

Betrifft: Alle Tabellen, nicht nur die aktive von: Giuseppe
Geschrieben am: 10.02.2005 12:46:35

Hallo VBA Profis

Ich habe hier ein Makro, dass mir die Menüs und Icons
aus- bzw. einblendet.

Das Problem:
- Ich möchte ALLE Tabellen wieder zurücksetzten, nicht nur die
aktuelle.

... ich vermute, dass sich das Problem in der
Zeile " With ActiveWindow " verbirgt.
Doch ich weiss nicht wie und was!

Private Sub Excelansichten_einschalten()
    '
    Application.ScreenUpdating = False
    '
    With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
        .DisplayOutline = True
        .DisplayZeros = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .ShowStartupDialog = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
    End With
    '
    ' Leisten wieder einblenden
    Application.ScreenUpdating = False
    Dim symbol As CommandBar
  For Each symbol In Application.CommandBars
  symbol.Enabled = True
  Next symbol
  
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
    
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Full Screen").Enabled = True
Application.DisplayFullScreen = False
'
'Die Tastenkombinationen werden wieder aktiviert
'
Application.OnKey "%{F2}"
Application.OnKey "%{F8}"
Application.OnKey "%{F11}"
Application.OnKey "%+{F2}"
Application.OnKey "+{F12}"
Application.OnKey "^{F12}"
Application.OnKey "{F12}"
Application.OnKey "^{s}"
Application.OnKey "^{o}"
Application.OnKey "^{c}"
Application.OnKey "^{v}"
'
' ' Tabellen ein
'
'Dim wks As Worksheet
'For Each wks In ActiveWorkbook.Worksheets
'If wks.Name <> "Dateien" Then
'wks.Visible = True
'End If
'Next
            ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    '
    Application.ScreenUpdating = True
    '
End Sub


Kann mir jemand weiterhelfen? Bitte!

mfG
Giuseppe
Bild


Betrifft: AW: Alle Tabellen, nicht nur die aktive von: Beni
Geschrieben am: 10.02.2005 20:40:51

Hallo Giuseppe,
For sh = 1 To Sheets.Count
With Sheets(sh) nicht With ActiveWindow
so werden alle Sheets durchbearbeitet.
Gruss Beni



Private Sub Excelansichten_einschalten()
    '
    Application.ScreenUpdating = False
For sh = 1 To Sheets.Count
    With Sheets(sh)
        .DisplayGridlines = True
        .DisplayHeadings = True
        .DisplayOutline = True
        .DisplayZeros = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
Next sh
    With Application
        .ShowStartupDialog = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
    End With
    '
    ' Leisten wieder einblenden
    Application.ScreenUpdating = False
    Dim symbol As CommandBar
  For Each symbol In Application.CommandBars
  symbol.Enabled = True
  Next symbol
  
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
    
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Full Screen").Enabled = True
Application.DisplayFullScreen = False
'
'Die Tastenkombinationen werden wieder aktiviert
'
Application.OnKey "%{F2}"
Application.OnKey "%{F8}"
Application.OnKey "%{F11}"
Application.OnKey "%+{F2}"
Application.OnKey "+{F12}"
Application.OnKey "^{F12}"
Application.OnKey "{F12}"
Application.OnKey "^{s}"
Application.OnKey "^{o}"
Application.OnKey "^{c}"
Application.OnKey "^{v}"
'
' ' Tabellen ein
'
'Dim wks As Worksheet
'For Each wks In ActiveWorkbook.Worksheets
'If wks.Name <> "Dateien" Then
'wks.Visible = True
'End If
'Next
            ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    '
    Application.ScreenUpdating = True
    '
End Sub



Bild


Betrifft: AW: Alle Tabellen, nicht nur die aktive von: Giuseppe
Geschrieben am: 10.02.2005 23:49:00

Hallo Beni

Vielen herzlichen Dank

Ich habe das Makro im Geschäft...
Werde es gleich morgen früh ausprobieren.
So auf den ersten Blick sieht es gut aus

mfG
Giuseppe


Bild


Betrifft: AW: Alle Tabellen, nicht nur die aktive von: Giuseppe
Geschrieben am: 11.02.2005 09:30:04

Hallo Beni

Danke für die Makro-änderung

Doch leider funktioniert es noch nicht ganz:

- "sh" Variable nicht definiert (dies habe ich behoben)
- weitere Fehlermeldungen ab: .DisplayGridlines = True

was kann ich tun?

mfG
Giuseppe


Bild


Betrifft: AW: Alle Tabellen, nicht nur die aktive von: Gerd
Geschrieben am: 12.02.2005 02:29:30

Gridlines sind an Windows gebunden, nicht an Sheets!

G.


Bild


Betrifft: AW: Alle Tabellen, nicht nur die aktive von: Giuseppe
Geschrieben am: 12.02.2005 17:36:03

Hallo Gerd

Danke.
So was hatte ich mir schon gedacht...

Aber wie kann ich dies umgehen?

mfG
Giuseppe


Bild


Betrifft: AW: Alle Tabellen, nicht nur die aktive von: andre
Geschrieben am: 13.02.2005 13:32:50

... einfach rausnehmen oder mit ActiveWindow.DisplayGridlines=true schalten


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Alle Tabellen, nicht nur die aktive"