Gruppe
Allgemein
Problem
Es wird geprüft, ober der Suchbegriff aus Zelle B1 in dem in der Zwischenablage gespeicherten Text vorkommt. Wenn ja, wird der Wert der Zwischenablage in Zelle B2 eingetragen.
StandardModule: Modul1
Sub ReadClipBoard()
Dim wks As Worksheet
Dim rng As Range
Dim vaFormats As Variant, vFormat As Variant
Dim sSearch As String
Set wks = ActiveSheet
sSearch = Range("B1").Value
Application.ScreenUpdating = False
Range("B2").Select
vaFormats = Application.ClipboardFormats
Workbooks.Add 1
For Each vFormat In vaFormats
If vFormat = xlClipboardFormatText Then
ActiveSheet.Paste
Set rng = Cells.Find(what:=sSearch, LookIn:=xlValues, lookat:=xlPart)
End If
Next vFormat
If Not rng Is Nothing Then
wks.Paste
Else
Beep
MsgBox "Der Suchbegriff wurde in der Zwischenablage nicht gefunden!"
End If
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub