Re: VBA-Makro - Zwischenablage löschen

[Herbert Taferner]

Hallo Gabi,

>
> Wie kann ich es bewerkstelligen, daß - falls beim Schließen die unten
> aufgeführte Meldung kommt - die Zwischenablage gelöscht wird.
>

versuchs mal so,

Sub Zw_Ablage_löschen()
' Es wird ein Verweis auf die
' Microsoft Forms 2.0 Object Library benötigt.

Dim objAblage As DataObject
Set objAblage = New DataObject
objAblage.SetText ""
objAblage.PutInClipboard
End Sub

Dafür musst Du einen Verweis auf die
Microsoft Forms 2.0 Object Library festlegen

(Im VB Editor Menü Extras/Verweise...)

mfg Herbert

[Jean Oliver Hinz]

Hallo Gabi,

füge einfach noch die Zeile

Application.CutCopyMode = False
> ActiveWorkbook.Close SaveChanges:=False
>
vorher ein.

--
Grüße aus Hannovers Südstadt

Jean Oliver Hinz
(Office XP / Win XP Pro SP2)

[Reiner Wolff]

Moin Gabi,

*Gabi Herr* schrieb:
> brauche mal wieder Eure Hilfe.
> Habe ein Makro, das eine Datei schließt mit dem Befehl
> ActiveWorkbook.Close SaveChanges:=False

>
> Wie kann ich es bewerkstelligen, daß - falls beim Schließen die unten
> aufgeführte Meldung kommt - die Zwischenablage gelöscht wird.

Wie man den Zeitpunkt abfangen kann, ob diese Meldung käme, weiss ich
leider auch nicht. Du könntest aber evtl. mit Jeans Vorschlag das schon
erschlagen haben. Ansonsten käme noch in Betracht DisplayAlerts auf 'False'
zu setzen.

Die Zwischenablage löscht Du aus VBA heraus über API-Aufrufe wie folgt:
*************
Option Explicit
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 ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Sub

Greetinx aus Kiel
Reiner
--
Es gibt Zeiten, wo einem alles gelingt. Aber das braucht niemanden zu
beunruhigen. Sie gehen sehr schnell vorüber...

[Gabi Herr]

Hallöchen,
sorry für die späte Antwort, aber ich habe es eben erst ausprobieren können.

Habe das Makro mehrmals laufen lassen, um die Zwischenablage so richtig voll
zu kriegen .... und es hat tadellos funktioniert. ... keine lästige Meldung
mehr.
Vielen lieben Dank und herzliche Grüsse in den Norden
Gabi

"Jean Oliver Hinz" schrieb:

[Jean Oliver Hinz]

Hallo Gabi,

gern geschehen und Danke für die Rückmeldung.

--
Grüße aus Hannovers Südstadt

Jean Oliver Hinz
(Office XP / Win XP Pro SP2)

"Gabi Herr" <Gabi...@discussions.microsoft.com> schrieb im Newsbeitrag
news:8E2921EE-13C2-41D0...@microsoft.com...