Hallo,
wenn der Befehl aufgeteilt wird, funktioniert es:
Sub DatumSuche()
Dim iQ As Integer
Dim datsuch As Date
Dim datzeile
Dim rngCol As Range
iQ = -2
datsuch = CDate(ActiveCell.Offset(-2, iQ)) ' - WBZ
Set rngCol = Worksheets("Kalenderwochen").Columns("A:A")
Set datzeile = rngCol.Find(what:=datsuch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not datzeile Is Nothing Then
datzeile = datzeile.Row
End If
'Set datzeile = Worksheets("Kalenderwochen").Columns("A:A").Find(what:=datsuch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
End Sub
Mit der Variable WBZ konnte ich nix anfangen, daher wurde diese auskommentiert.
LG, BigBen
|