Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
VBA: Einblenden von Spalten braucht sehr lange
#1
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
Eine Lösung gibt es meistens...
Zitieren
#2
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ß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 01/2011 - 06/2019 :: 04/2020 - 06/2022
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)
Zitieren
#3
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
Eine Lösung gibt es meistens...
Zitieren
Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein völlig kostenloses und unverbindliches Angebot innerhalb weniger Stunden.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


#4
Hallo,

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

Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 01/2011 - 06/2019 :: 04/2020 - 06/2022
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions