Maximaler Wert Zelle anzeigen
23.07.2003 01:17:53
Roberto
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