Hallo ihr Spezialisten
Ich habe eine Tabelle, in der ein Kalender in dem Bereich "H2:CT470" ist. dort sind die einzelnen Tage des Jahres in verbundenen Zellen aufgeführt, z.B. der 6.Januar ist im Bereich "BH4:BT5". In Zelle "CV1" ist das Suchdatum. Ich habe folgendes Makro zum Suchen geschrieben:
Dim rngFind As Range
Dim strDate As String
strDate = Range("Kalender!CV1")
Set rngFind = Range("H2:CT470").Find(DateValue(strDate), _
LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Das Datum wurde nicht gefunden!", 48, "Hinweis"
End If
Das komische daran ist, manchmal, wenn in "CV"1" ein Januar Datum steht, wird der entsprechende Tag im November selektiert.
Meistens wird aber die richtige Zelle im Januar selektiert.
weiss jemand Rat?
Viele Grüsse Klaus