Direktbereich löschen
08.09.2022 20:52:09
Frank
ich suche jetzt schon eine Weile im Netz, wie man mittels VBA Code den Direktbereich löschen kann. Bei alle Codes erhalte ich eine Fehlermeldung.
Ich möchte vor dem Ausführen von gewissen Sub's den Direktbereich löschen. Das muss doch irgendwie möglich sein, anstatt immer in den Direktbereich zu gehen - Strg+A und dann Entfernen zu drücken. Könnte mir bitte jemand helfen?
Das habe ich versucht:
Function DebugDirektbereichfensterLeeren()
VBE.Windows("Direktbereich").Visible = True
VBE.Windows("Direktbereich").SetFocus
SendKeys "^{a}"
SendKeys "{Del}"
End Function
Sub DirektfensterLöschen()
Application.CommandBars.FindControl(ID:=1695).Execute
Application.VBE.CommandBars.FindControl(ID:=2554).Execute
SendKeys "^{HOME}+^{END}{DEL}"
End Sub
Frank
