Hallo Leute,
Ich möchte aus einem bestimmten Zellbereich den maximalen Wert ermitteln.
Ich brauche jedoch auch die Angabe der Zelle um später mit offset eine Zeile höher zu springen. Den Wert kann ich mir ja anzeigen lassen, aber wie kann ich die Zelle ermitteln?

Vielen Dank für Eure Hilfe :-)

Roberto

Dim dmax As Double
Dim rng As Range

Sheets("ablage2").Select
dmax = WorksheetFunction.Max(Range("D9,G9,M9,P9"))
Set rng = Range("D9,G9,M9,P9").Find(What:=dmax, LookIn:=xlValues, LookAt _
:=xlWhole)
MsgBox dmax