Gruppe
Allgemein
Bereich
Markieren
Thema
Bereich mit Maximalwert markieren
Problem
Wie kann ich die Zelle bzw. die Spalte, in dem sich der Maximalwert eines Arbeitsblattes befindet, farbig markieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub CellsSelect()
Dim rng As Range
Dim dMax As Double
dMax = Application.Max(Cells)
Set rng = Cells.Find( _
What:=dMax, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Application.Caller = "Zelle markieren" Then
rng.Interior.ColorIndex = 3
Else
Columns(rng.Column).Interior.ColorIndex = 3
End If
End Sub