Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen