Noch mal Maximalwert ermitteln
27.07.2003 12:58:33
Roberto
leider kam ich beim letzen mal mit der Hilfestellung von Nepumuk nicht weiter.
Ich möchte gerne aus dem Zellbereich des Arbeitsblattes "ablage2" den Maximalwert ermitteln.
Anschliessend möchte ich die Zelle aktivieren in der der maximale Wert gefunden wurde, um danach mit Offset 5 Zellen nach oben zu springen.
Kann mir jemand dabei helfen?
Vielen Dank für Eure Hilfe schon mal im voraus :-)
Roberto
Mit der Hilfsdatei von Herber bin ich bisher zu folgendem Code gekommen
(Ob das so für mein Problem zu gebrauchen ist weiss ich nicht):
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' dient zur Kontrolle ob der Max Wert gefunden wurde