lange Ladezeit

[Karsten]

Hallo zusammen,

ich habe ein Problem mit einer VBA-Ausführung die eine sehr lange Ladezeit hat. Das heißt beim öffnen der Datei braucht es ewig bis die Datei geöffnet wird.
Ich glaube das es an einer Variable liegt die falsch ist.

Mit dem Code ist das einblenden von 3 Registerkarten und das ausblenden der selben Registerkarten gesteuert durch eine Tastenkombination.
Kann mir jemand eventuell helfen?

Hier ist der Code:
Sub ausblenden()
'
' ausblenden Makro
'
' Tastenkombination: Strg+a
'
    Sheets("Print (mit Werten)").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Online Thüringen (mit Werten)").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Online Sachsen (mit Werten)").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub


Sub Blättereinblenden()
'
' Blättereinblenden Makro
'

'
    Sheets("Online Sachsen").Select
    Sheets("Print (mit Werten)").Visible = True
    Sheets("Print (mit Werten)").Select
    Sheets("Online Thüringen (mit Werten)").Visible = True
    Sheets("Online Thüringen (mit Werten)").Select
    Sheets("Online Sachsen (mit Werten)").Visible = True
   
End Sub

[Kuwer]

Hallo,

Code:

Sub ausblenden()
'
' ausblenden Makro
'
' Tastenkombination: Strg+a
'
    Sheets("Print (mit Werten)").Visible = False
    Sheets("Online Thüringen (mit Werten)").Visible = False
    Sheets("Online Sachsen (mit Werten)").Visible = False
End Sub


Sub Blättereinblenden()
'
' Blättereinblenden Makro
'

'
    Sheets("Print (mit Werten)").Visible = True
    Sheets("Online Thüringen (mit Werten)").Visible = True
    Sheets("Online Sachsen (mit Werten)").Visible = True
End Sub

Gruß Uwe