VBA: Einblenden von Spalten braucht sehr lange

[maninweb]

Hallo,

Du könntest (zunächst) versuchen, die Bildschirmaktualisierung (ScreenUpdating ) während des Vorgangs abzuschalten ...

Code:

Sub alle_an()
  Application.ScreenUpdating = False
  ActiveSheet.Unprotect
  Application.DisplayStatusBar = True
  Application.StatusBar = "Das Einblenden braucht immer etwas - Danke für Ihre Geduld!"
  Columns("A:AE").EntireColumn.Hidden = False
  Application.StatusBar = False
  ActiveSheet.Protect , AllowFiltering:=True, AllowSorting:=True, Contents:=True
  Application.ScreenUpdating = True
End Sub

Gruß