In Zwischenablage suchen
21.01.2022 06:56:46
Nibio
nachdem ich 5 Stunden gesucht habe und verschiedene Scripte getestet habe,
muss ich leider passen :-(.
Ich suche ein Skript (vba) die ein ein Wort bzw. String in die Zwischenablage sucht.
Wenn das Wort gefunden wird, Makro1 Ausfuhren sonst Makro2. Beispiel:
Ich markiere eine gesamte Webseite (nur sichtbare Bereich), und kopiere es. Excel muss dann prüfen
ob das Wort bzw. String "Leider Ausverkauft" existiert und startet damit den entsprechendes Makro.
Mir interessieren nur die texte, Bilder und Objecte sollen ignoriert werden.
Hier etwas die ich gefunden habe, klappt nicht so ganz gut aber fast hätte ich es geschafft:
Sub makro1()
Dim MyText As String
Dim myData As Object
On Error GoTo ErrHandler
Set myData = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
myData.GetFromClipboard
MyText = myData.GetText
If Left(MyText, 7) "WO" Then Exit Sub
ErrHandler: 'Else
MsgBox "hello"
End Sub
Salvatore