Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Bereich mit Maximalwert markieren
Gruppe
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