oberste Zeile im Autofiltermodus
24.01.2006 13:01:56
thorsten
ich setze per Makro einen Autofilter.
nun möchte ich in Spalte "C" die einzelnen Werte auslesen und den größten bestimmen.
Mit dem offset-Befehl kann ich leider die Zellen nicht ansteuern. Gibt es eine andere Möglichkeit?
hier mein Code:
Selection.AutoFilter Field:=5, Criteria1:="=" & mat99, Operator:=xlAnd
Range("c1").Select
ActiveCell.Offset(1, 0).Select
datum1 = ActiveCell.Value
Do Until ActiveCell = ""
datum2 = ActiveCell.Value
If datum2 > datum1 Then datum1 = datum2
ActiveCell.Offset(1, 0).Select
Loop
Cells.Find(What:=datum1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
preis1 = ActiveCell.Offset(0, 8).Value
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=1"