Gruppe
Funktion
Problem
In Zelle D2 soll der Wert aus Spalte C der Zeile geliefert werden, in der die Kriterien aus F1 und F2 beide zutreffen.
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