Gruppe
Allgemein
Bereich
Suchen
Thema
Wert in Zwischenablage suchen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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