VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen

Gruppe

Allgemein

Bereich

Berechnen

Thema

Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen