Hallo zusammen,

ich stehe auf dem Schlauch und wäre für Hilfe dankbar.

Mit einem Makro soll der Inhalt von Zelle J1 im Bereich A2:J100 gesucht werden. In J1 steht immer ein Datum, zB "16.05.". Im Zellbereich kann dieses Datum ebenfalls aufgeschrieben, zB so:
J31= "16.05.2024"
J80= "16.05.-17.05."

Warum springt das Makro zu Zelle J80 und nicht zu Zelle J31? Selbst wenn J80 leer ist, wird J31 nicht gefunden.

Viele Grüße
Daniel

Sub SucheInBereich()
    Dim ws As Worksheet
    Dim rngSuchen As Range
    Dim rngWertSuchen As Range
    
    Set ws = ThisWorkbook.Sheets("Bearbeitung")
    Set rngSuchen = ws.Range("A2:J100")
    
    ' Wert suchen
    Set rngWertSuchen = rngSuchen.Find(What:=ws.Range("J1").Value, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    ' Überprüfen, ob der Wert gefunden wurde
    If Not rngWertSuchen Is Nothing Then
        rngWertSuchen.Activate
    Else
        MsgBox "Wert nicht gefunden."
    End If
End Sub