Gruppe
Allgemein
Problem
Wie kann ich die Zelle bzw. die Spalte, in dem sich der Maximalwert eines Arbeitsblattes befindet, farbig markieren?
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