Direktfenster löschen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Direktfenster löschen
von: Stefan
Geschrieben am: 20.05.2002 - 16:23:32

Gibt es einen Befehl, um die Ausgegebenen Informationen im Direktfenster zu löschen.Wenn man ein Programm im Direktfenster ablaufen lassen hat, möchte ich im nächsten Programm, das dieses wieder gelöscht wird. Damals konnte man dieses in Basic mit dem Befehl CLS machen. Das klappt in VBA aber nicht.

nach oben   nach unten

Re: Direktfenster löschen
von: Hajo
Geschrieben am: 20.05.2002 - 16:28:21

Hallo Stefan

reicht Dir die Information von Hans nicht.

Gruß Hajo


nach oben   nach unten

Re: Direktfenster löschen
von: Thomas Risi
Geschrieben am: 20.05.2002 - 16:48:31

Hi

Versuch's mal in etwa so ...


Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
 ByVal lpClassName As StringByVal lpWindowName As StringAs Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
 ByVal hwndParent As LongByVal hwndChildAfter As Long, _
 ByVal lpClassName As StringByVal lpWindowName As StringAs Long
Private Declare Function SetFocus Lib "user32" (ByVal hwnd As LongAs Long

Dim hwnd As Long

Sub ClearImmediateWindow()
    
    hwnd = FindWindow("wndclass_desked_gsk", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, vbNullString, "Direktbereich")
    SetFocus hwnd
    
    SendKeys "^{a}"
    SendKeys "{DELETE}"
    
End Sub

     Code eingefügt mit Syntaxhighlighter 1.14


Gruß

Thomas

------------------------------
Internet: Homepage

eMail: Thomas.Risi@t-online.de
------------------------------


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bezeichnungsfeld-Caption in die Tabelle Schreiben"