Zwischenablage nach mehrere Begriffe durchsuchen

Hallo,
ich hab da mal wieder ein Problem....
Vom Anwender wird aus einer anderen Anwendung etwas markiert und per STRG+C in die Zwischenablage kopiert. Es handelt sich um Text und Zahlenreihen.
Ich möchte vor dem Einfügen in Excel sicherstellen, dass der Inhalt der Zwischenablage bestimmte Stichwörter (insgesamt 24) enthält, und erst als vollständig gilt, wenn alle Stichwörter in der Zwischenablage mitkopiert wurden.

Beispiel Zwischenablage
Hase     45   90  45  90
Hund     55   14   7  23
Bier     77   55  78  66
Gärtner   1    2   9   6

Der Anwender hätte nur die Reihen Hase und Bier kopiert, also die Hälfte vergessen - dann soll vor dem Einfügen eine Fehlermeldung erscheinen und abgebrochen werden. Es muss also auf die 4 Begriffe Hase,Hund,Bier,Gärtner (bzw. bei mir insgesamt 24 Schlüsselwörter") geprüft werden.
Liebe Grüße
Mexsalem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zwischenablage() Dim oData As New DataObject Dim ZWText$ On Error Resume Next oData.GetFromClipboard ZWText = oData.GetText If InStr(1, ZWText, "Hase") = 0 Then GoTo Fehler If InStr(1, ZWText, "Hund") = 0 Then GoTo Fehler If InStr(1, ZWText, "Bier") = 0 Then GoTo Fehler If InStr(1, ZWText, "Gärtner") = 0 Then GoTo Fehler Exit Sub Fehler: MsgBox "Fehlender Inhalt" End Sub

Hallo Tino, UweD und Nepomuk,
vielen Dank für Eure schnelle Beantwortung meines Problems.
@UweD : Danke für den Hinweis auf den Verweis (wird glaube ich aber auch automatisch von Excel gesetzt, sobald man mal eine Userform einfügt). Ich verstehe deinen Code so, dass das nachfolgende Ereignis (z.B. PasteSpecial) noch entsprechend angepasst/eingefügt werden muss, wenn die Prüfung erfolgreich durchgelaufen ist. Da dies nur ein Beispiel für die Prüfung sein sollte, komme ich damit klar.
@Nepumuk : als auslösendes Ereignis ist das Klicken eines Command-Buttons vorgesehen.
@Tino: Das ist ja geil, das man mit

If Application.CutCopyMode = 0 Then

sogar feststellen kann, ob der Inhalt der Zwischenablage tatsächlich von einer anderen Anwendung stammt. Kannte ich bisher nicht, nehme ich aber dankbar auf.
Problem gelöst ! Besten Dank.
Gruß
Mexsalem

Beliebteste Forumthreads (12 Monate)

Zwischenablage nach mehrere Begriffe durchsuchen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwischenablage nach mehrere Begriffe durchsuchen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread