VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert nach zwei Kriterien ermitteln

Gruppe

Funktion

Bereich

SVERWEIS

Thema

Wert nach zwei Kriterien ermitteln

Problem

In Zelle D2 soll der Wert aus Spalte C der Zeile geliefert werden, in der die Kriterien aus F1 und F2 beide zutreffen.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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 Funktion und SVERWEIS