Direktbereich löschen

[Peter Hellmann]

Hi NG,

ich benutze immer wieder mal Debug.Print. Kann man das Ausgabefenster bzw.
Direktfenster auch löschen? Falls ja, kennt jemand den Befehl hierfür?

thanx,

Peter

[Frank Kabel]

Hi Peter
dafür gibt es m.W. keine Methode

Post by Peter Hellmann
Hi NG,
ich benutze immer wieder mal Debug.Print. Kann man das Ausgabefenster bzw.
Direktfenster auch löschen? Falls ja, kennt jemand den Befehl hierfür?
thanx,
Peter

[Bernd Held]

Hallo Peter,

Post by Peter Hellmann
Hi NG,
ich benutze immer wieder mal Debug.Print. Kann man das Ausgabefenster bzw.
Direktfenster auch löschen? Falls ja, kennt jemand den Befehl hierfür?
thanx,
Peter

na ja, da gibt es einen Trick mit folgendem Makro, nicht ganz sauber, aber
es tickt..

Sub DirektfensterLöschen()
Application.CommandBars.FindControl(ID:=1695).Execute
Application.VBE.CommandBars.FindControl(ID:=2554).Execute
SendKeys "^{HOME}+^{END}{DEL}"
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
VBA-Bücher mit Leseproben(PDF) und Schulungen
unter http://held-office.de

[unknown]

Hallo Peter,
folgendes Makro:

Sub ClearImmediateWindow()
Application.VBE.Windows("Direktbereich").Visible = True
SendKeys "^{HOME}+^{END}^{BREAK}{DEL}{F5}", False
End Sub

Anmerkung:
dt.: "Direktbereich" , engl.: "Immediate Window"
Link: http://www.vb-helper.com/howto_clear_debug_window.html

MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung

[unknown]

Upps,
da sind ein paar Tasten zu viel, also dann folgendes Makro:

Sub ClearImmediateWindow()
Application.VBE.Windows("Direktbereich").Visible = True
SendKeys "^{HOME}+^{END}{DEL}", False
End Sub

MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung

[Peter Hellmann]

1000 Dank Bernd, Frank1 und Frank2 !!!

cheers,

Peter