Anwenden der Range.Find-Methode
05.11.2016 07:27:47
Stefan
Ich habe mir die Spezifikation der Range.Find-methode durchgelesen und mit InternetHilfe dies _
hier zusammen geschrieben.
****************************
Private Sub Worksheet_Activate()
Dim lngLastCell As Range
Dim heute As Date
heute = Plan.Range("A2")
With ActiveSheet
lngLastRow = .Range.Find(What:=heute, After:=Range("K10"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
MsgBox lngLastRow
.lngLastCell.Select
End With
End Sub
********************************+
Leider erhalte ich einen Fehler:
Falsche Anzahl von Argumenten oder ungültige Eigenschaftenzuweisung.
Hat jemand einen tipp für mich? Ich habe da irgendetwas übersehen.
Vielen Dank schon einmal.