Dieser VBA-Code (Makrocode) hilft Ihnen, automatisch Maximum- und Minimumwerte im aktiven Blatt hervorzuheben.
Anstelle der Verwendung hartcodierter Datenbereiche durchläuft der Code die verwendeten Spalten und passt sie für unterschiedliche Längen an.
Ich nehme auch Kopfzeilen in der aktiven Tabelle an.
Private Sub Worksheet_Activate() Dim Myrng As Range Dim rng As Range Dim lCol As Long Dim lLastRow As Long ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNone With ActiveSheet For lCol = 2 To .UsedRange.Columns.Count lLastRow = .Cells(.Rows.Count, lCol).End(xlUp).Row Set rng = .Range(.Cells(2, lCol), .Cells(lLastRow, lCol)) For Each Myrng In rng If Myrng.value = Application.WorksheetFunction.Max(rng) Then Myrng.Interior.ColorIndex = 6 End If If Myrng.value = Application.WorksheetFunction.Min(rng) Then Myrng.Interior.ColorIndex = 10 End If Next Next lCol End With End Sub
Wie es funktioniert:
- Kopieren Sie diesen VBA-Code als Standardmodul mit dem Datenblatt.
- Der Code hebt Max- und Min-Werte in jeder Spalte für den verwendeten Bereich in der Tabelle hervor, sobald Sie ihn aktivieren (bei Mausklick auf die Registerkarte "Tabelle").
- Passen Sie die Hintergrundfarbe nach Bedarf an.