Hallo,
in u.st. Code möchte ich, dass die Suche erst in Zelle A5 beginnt bis zum Schluß der A Spalte. Mit Range("A5:A65536") haut es nicht hin. Weiß jemand, wie es richtig stehen muß?
Gruß
Karsten
Dim varResult As Variant
varResult = Application.Match(CDbl(Date), Range("A:A"), 0)
If IsNumeric(varResult) Then Application.Goto Cells(varResult, ActiveCell.Column)
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
https://www.herber.de/bbs/user/66713.xls