VBA: Einblenden von Spalten braucht sehr lange

[thorralf]

Guten Tag zusammen und vielen Dank für die Aufnahme hier,

Gerade arbeite ich an einer Übersicht zu Vorsorgeuntersuchungen. Da personenbezogene Daten im Dokument Verwendung finden, kann ich nicht die gesamte Excel-Datei posten.
Hier müsste ich dann eine bereinigte Datei erstellen, wenn die Antwort nicht schon durch den Code-Schnipsel möglich ist.

Ich habe ein Icon auf dem Arbeitsblatt angelegt, mit einem Makro verknüpft, das beim Anklicken alle Spalten der Untersuchungen anzeigen soll:

Code:

Sub alle_an()
    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
End Sub

Um den geneigten Bediener zu beruhigen hatte ich dann in der Statuszeile den Hinweis zu der Wartezeit eingefügt.

Gibt es einen Trick zügiger alle Spalten wieder einzublenden?
Vielen Dank schon einmal im Voraus für hilfreiche Hinweise. Ein Link zu weiterführenden Threads wäre auch OK für mich.

Liebe Grüße, Ralf