Die Antworten konnten mir leider nicht weiterhelfen. Ich gebe mir die Schuld dafür, aber bitte nochmal.
Hier ist mein Code.
Ich speichere ein Datum als Wert (Bsp.: 43344) aus Tabelle1 und suche diesen Wert in Tabelle2.
Ich denke das Problem liegt daran, dass in Tabelle2 das Datum zwar TT.MM.JJ dargestellt wird, aber mit der Funktion =DATUM() ermittelt wird.
Hier ist mein bisheriger code.
Sub findenetwa2()
Dim festNr1 As Long
Dim finden1 As Range
festNr1 = ActiveCell.Offset(0, -5).Value2
With Worksheets(2).Range("D4:NE4")
Set finden1 = .Find(what:=festNr1, LookIn:=xlValues)
End With
MsgBox finden1
End Sub
Bei der MsgBox Ausgabe wird ein Laufzeitfehler 91 gegeben.Ich wurde auf folgenden Link verwiesen, dieser bringt mir aber nicht viel.
Daher bitte konkret sagen, wo der Fehler ist, da mir Verweise nicht sehr helfen, da ich nur rudimentäre Kenntnisse habe.
Zuvor wurde gesagt, Set sei das Zauberwort. Als Hinweis an euch.
Besten Dank :)