Office: VBA- Zwei Begriffe mit ".Find" suchen

HAllo, ich möchte in einem Bereich nach zwei Begriffen suchen. Mit einem Begriff bekomme ich das mit folgendem Code ohne Probleme hin.

Code:

Set rngBereich = .Range(.Cells(lngZeile, 4), .Cells(1, 4)).Find("ZP04", lookat:=xlWhole, searchdirection:=xlPrevious).Rows

Ich möchte aber nach zwei Begriffen suchen. Also entweder "ZP04" oder "ZP06". Wenn einer von den beiden begriffen gefunden wird soll rngBereich gefüllt werden.

Geht das irgendwie mit .Find("ZP04","ZP06").... ?

Danke
Ich benutze Excel 2010

 

Hallo,

mit folgendem Makro müsste eine Entweder-Oder-Suche möglich sein, wobei zuerst nach "ZP04" gesucht wird. Falls dieses nicht gefunden wird, erst dann wird nach "ZP06" gesucht.

Code:

Public Sub Suchen_EntwederOder()
  Dim lngZeile As Long
  Dim rngBereich As Range, Ws As Worksheet
  
  lngZeile = 10
  Set Ws = ActiveSheet
  With Ws.Range(.Cells(lngZeile, 4), .Cells(1, 4))
    Set rngBereich = .Find(What:="ZP04", LookIn:=xlValues, lookAt:=xlWhole, searchdirection:=xlPrevious)
    If rngBereich Is Nothing Then
      Set rngBereich = .Find(What:="ZP06", LookIn:=xlValues, lookAt:=xlWhole, searchdirection:=xlPrevious)
      If rngBereich Is Nothing Then
        MsgBox "Weder ZP04 noch ZP06 gefunden -> Abbruch"
        Exit Sub
      End If
    End If
    
  End With
  'rngBereich: enthält jetzt die Zelle, in der entweder "ZP04" oder "ZP06" enthalten ist (also maximal 1 Zelle):
  MsgBox "Fundstelle: " & rngBereich.Address
End Sub

 

Hi Marius,

beides in einem Durchgang mittels Entweder-Oder als Suchkriterium finden geht nicht - verwende 2 unterschiedliche Variablen:

Möglichkeit:

Code:

Sub Finden()
   Dim rngBereich1 As Range
   Dim rngBereich2 As Range
   Dim lngZeile As Long
   lngZeile = 100
   With ActiveSheet
      Set rngBereich1 = .Range(.Cells(lngZeile, 4), .Cells(1, 4)).Find("ZP04", lookat:=xlWhole, searchdirection:=xlPrevious).Rows
      Set rngBereich2 = .Range(.Cells(lngZeile, 4), .Cells(1, 4)).Find("ZP06", lookat:=xlWhole, searchdirection:=xlPrevious).Rows
      If Not rngBereich1 Is Nothing Then
         MsgBox "ZP04 gefunden in Zeile " & rngBereich1.Row
      End If
      If Not rngBereich2 Is Nothing Then
         MsgBox "ZP06 gefunden in Zeile " & rngBereich2.Row
      End If
   End With
   Set rngBereich1 = Nothing
   Set rngBereich2 = Nothing
End Sub

Bis später,
Karin