Thema: Bereich mit Maximalwert markieren

Home

Gruppe

Allgemein

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

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

Alle Zellen mit bestimmtem Datum markieren	höchsten Wert markieren
Text vergl. und Untersch. farblich markieren	doppelte Einträge farblich markieren
Markieren	Objekte markieren - ausschalten
Zellen Markieren	Markieren mit variablen
Kontrollkästchen automatisch markieren lassen	Mappe als gespeichert markieren
mehrere Spalten mit Set "markieren"	Diagramm-Schnittfläche markieren
Pop-up-Fensterchen beim Markieren von Zellen	Zellen markieren
Zeilen und Spalten von Bereich markieren	Zelleninhalt prüfen - ggf. farblich markieren
Mehrfach vorkommende Daten markieren	Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank	Gefüllte Zellen markieren und als CSV abspeichern
Bereich markieren mit ....	Bereich per INPUTBOX markieren und auswerten
Alles markieren außer bestimmten Bereich	In der Spalte d letzten Wert markieren u löschen
Spalten markieren, Problem	Zeile/Spalte markieren
Excel 2007 Objekte markieren, gruppieren	Markieren von Zeilen mit gleichem Wert in Spalte B
2 tabellen vergleichen und farbig markieren	Doppelte Datensätze markieren
allgemein	Zeile nacheinander markieren
Zellen mittel VBA markieren	Objekte markieren in Excel 2007
bestimmte Zellen markieren und untereinander...	Bestimmte Zeilen markieren
Zellen mit Zahlen (keine Formel)farblich markieren	Markieren, wenn 0 in Zelle
Zeichnungsobjekte markieren	Ähnliche Werte vergleichen und markieren
Spalten markieren wenn aktuelles Datum	Bereich markieren in Abhängigkeit von Fundstelle
Diagramme auflisten und ein bestimmtes markieren	Markieren einer Zelle über Suchgebriff
Doppelte Werte markieren?	Zeilen über Datum markieren und kopieren
Zellen mit Schutz abfragen und markieren	Bereiche in Formeln markieren
Inhalt Textbox markieren	suchen, markieren, löschen