VBA löschen der Zwischenablage

[Beckmann@discussions.microsoft.com Holger Beckmann]

Hallo,

ich führe in einem Excel-Sheet als Informationsübersicht Daten aus div.
anderen Dateien zusammen. Dies läuft komplett VBA-gesteuert. Damit der User
nicht durch hin- und herspringende Fenster genervt wird, habe ich die
Bildschirmaktualisierung ausgeschaltet und der User bekommt erst ganz zum
Schluß eine Erfolgmeldung.

Getrübt wird dieser Vorgang einzig durch eine Meldung, dass "eine große
Menge von Informationen in der Zwischenablage befindet" und ob ich diese
anderen Programmen zur Verfügung stellen möchte. Wie kann ich diese Meldung
unterdrücken bzw. die Zwischenablage per VBA leeren?

Vielen Dank für jede Hilfe

Viele Grüße
Holger Beckmann

[klaus.schmitz]

Hallo Holger,

aus Deinen Ausführungen entnehme ich, daß Du mit Kopieren
und Einfügen arbeitest, denn sonst würden die Daten wohl nicht
in der Zwischenablage liegen.

Wenn Du, wie Du schreibst alles per VBA geregelt hast, dann
kopiere doch direkt ohne kopieren und einfügen.

Ja und wenn Du das nicht kannst, weil die Daten möglicherweise
aus anderen Anwendungen kommen, dann kannst Du mit
SendKey arbeiten.

Ansonsten melde Dich nochmals und beschreibe Deine
Arbeitsweise etwas genauer.

MfG
Klaus

[Herbert Taferner]

Hallo Holger,

schau mal da rein,
http://groups.google.de/groups?hl=de&lr=lang_de&num=30&q=excel+vba+zwischenablage+l%C3%B6schen

mfg Herbert

[Eike Bimczok]

Hallo Holger,

hier eine Lösung von Bernd Held

Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard _
Lib "user32" () As Long
Private Declare Function CloseClipboard _
Lib "user32" () As Long
Sub ZwischenablageLeeren()
If OpenClipboard(0&) <> 0 Then
Call EmptyClipboard
Call CloseClipboard
End If
End Sub

Gruß, Eike

Herbert Taferner schrieb: