Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen

Gruppe

Berechnen

Problem

Wie kann ich den Maximalwert einer Tabelle ermitteln und in der Fundzeile in Spalte A eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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