Thema: Excel Applikation deaktiviern u. wieder aktivieren | Herbers Excel-Forum

Guten Tag
Im Moment habe ich ein Problem mit der Bildschirmaktualisierung.
https://www.herber.de/forum/archiv/1120to1124/t1120427.htm⇐
Bis Microsoft das Problem behebt, möchte ich mir mit folgendem behelfen:
Ich dekaktiviere die Applikation Excel und aktiviere sie gleich wieder. Die Routine ordne ich einem Tastenkürzel (z.B. F5) zu. So kann ich die "Unordnung" auf dem Bildschirm schnell wieder ordnen.
Wie kann ich mit VBA die Applikation Excel deaktivieren und wieder aktivieren?
Danke für jede Hilfe.
Gruss, Peter

Hallo Peter,
ich weiß zwar nicht, ob das hilft, aber teste doch mal diesen Code (bitte zuvor alle Mappen speichern !!) :

Sub ExcelDeaktivierenAktivieren()
Application.Visible = False                     'Excel ausblenden
Application.Wait Now + TimeValue("00:00:02")    '2 Sekunden warten
Application.Visible = True                      'Excel einblenden
End Sub

Gruß, NoNet

Hallo NoNet
Das hilft!
Vielen Dank, Peter

Hallo NoNet
Könnte ich hier allenfalls auch eine Millisekunde verwenden. Da es grundsätzlich funktioniert, möchte ich möglichst wenig Zeit verlieren.
Gruss, Peter

Hi.
Mit Application.Wait nicht, grundsätzlich aber ja:

Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliseconds As Long)
Sub ausBlenden()
Application.Visible = False
Sleep (1)
Application.Visible = True
End Sub

Gruss, Jogy