Gruppe
Format
Bereich
Farbe
Thema
Zelle mit kleinsten Wert markieren
Problem
Wie kann ich bei Eingaben in Spalte D jedesmal den kleinsten Wert in dieser Spalte mit einer gelben Hintergrundfarbe belegen?
Lösung
Formel in der bedingten Formatierung: =A1=MIN(A:A)
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call BlinkenEnde
End Sub
StandardModule: basMain
Public Const giIntervall As Integer = 1
Public Const gsMacro As String = "Blinken"
Public gdNextTime As Double
Sub BlinkenEin()
gdNextTime = Now + TimeSerial(0, 0, giIntervall)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub
Private Sub Blinken()
With ActiveCell
If .Interior.ColorIndex = 6 Then
.Interior.ColorIndex = 9
.Font.ColorIndex = 6
Else
.Interior.ColorIndex = 6
.Font.ColorIndex = 9
End If
End With
Call BlinkenEin
End Sub
Sub BlinkenEnde()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
End Sub