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

[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ß

[thorralf]

Hallo maninweb,

Leider hat das abgeschaltete Screenupdating keine Besserung gebracht
Es kommt sogar während des Vorgangs die Systemmeldung "(Keine Rückmeldung)" bis der Vorgang abgeschlossen ist. Das ist kurios.
Aber danke für Deine Idee.

GLG Thórralf

[maninweb]

Hallo,

dauert es denn genauso lange, wenn Du es testweise manuell machst? Welche Excel-Version ist betroffen?

Gruß