VBA Wert im Bereich suchen & evtl hinzu

Guten Tag,

Im Sheet1 soll mit Klicken des Buttons "Jahreszahl" die Zahl aus Sheet1 K1 mit der Zeile 4 in Sheet 4 verglichen werden, wenn der Wert in der Zeile gefunden wird soll eine MsgBox erscheinen mit "Gefunden!". Falls die Zahl nicht gefunden wird soll in die erste freie Zell der Wert eingefügt werden. Meine eigenen Versuche mit Unterstützung von ChatGpt scheitert am Fehler 13 Typen Unverträglich.

https://www.herber.de/bbs/user/159333.xlsm

Sub DurchsuchenUndEinfügen()
    Dim WertSuchen As String
    Dim Suchbereich As Range
    Dim Zelle As Range
    Dim Gefunden As Boolean
    
    ' Wert zum Suchen aus Sheet1
    WertSuchen = Sheets("Sheet1").Range("K1").Value
    
    ' Suchbereich in Zeile 2 von Sheet2
    Set Suchbereich = Sheets("Sheet4").Rows(4)
    
    Gefunden = False
    
    ' Durchsuche den Suchbereich nach dem Wert
    For Each Zelle In Suchbereich
        If Zelle.Value = WertSuchen Then '-- Fehler 13
            Gefunden = True
            Exit For
        End If
    Next Zelle
    
    ' Überprüfe, ob der Wert gefunden wurde
    If Gefunden Then
        MsgBox "Gefunden"
    Else
        ' Einfüge des Werts in die erste freie Zelle in Zeile 2
        Sheets("Sheet2").Rows(2).End(xlToRight).Offset(, 1).Value = WertSuchen
    End If
End Sub