Gruppe
Allgemein
Problem
Wie kann ich den Maximalwert einer Tabelle ermitteln und in der Fundzeile in Spalte A eintragen lassen?
StandardModule: basMain
Sub GetMaxValue()
Dim rng As Range
Dim dMax As Double
dMax = WorksheetFunction.Max(Range("A1:F10"))
Set rng = Range("A1:F10").Find( _
what:=dMax, LookIn:=xlValues, lookat:=xlWhole)
Cells(rng.Row, 7).Value = dMax
End Sub