Office-Fragen.de

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

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ß

Hallo maninweb,

Leider hat das abgeschaltete Screenupdating keine Besserung gebracht Sad

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

Hallo,

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

Gruß

thorralf

maninweb

thorralf

maninweb