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
Ich hoffe ihr könnt mir weiterhelfen
Mit freundlichen Grüßen
Björn Kruse