Ich habe kaum Erfahrung mit VBA und komme mit dem folgenden Problem nicht zurecht:
Ich habe eine Funktion im Internet gefunden, die auch mein Ziel erfüllen wurde, wenn ich sie vernümftig benutzen könnte.
Wenn ich die Funktion bei VBA über F5 ausführe, dann geschieht der erwünschte Effekt, allerdings kann ich den Effekt nicht in Excel hervorrufen.
Wenn ich "=DatumFinden()" eingebe, erscheint eine "0".
Hier zur Funktion:
Function DatumFinden()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("B3:B250")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Function
End If
End If
Next
End Function
Wenn mich jemand aufklären könnte, was ich falsch mache und wie ich vorgehen muss, wäre ich sehr dankbar. Bei Google konnte ich nichts finden.
Mit freundlichen Grüßen
Denis