[Excel] Zeilen mit leeren Zellen farblich hervorheben

Gepostet am: Sep 20, 2012 10:27:44 AM

Ausgangslage ist eine Tabelle, bei der nicht alle Zeilen komplett befüllt sind. Nun soll diese Zeile irgendwie hervorgehoben werden. "Bedingte Formatierung" wäre da eine recht praktikable Lösung.

Zeile hervorheben, wenn eine bestimmte Spalte leer ist:

Zeile hervorheben, wenn die ganze Zeile leer ist:

Selbiges kann man auch dazu verwenden, um zu prüfen, ob lediglich Zellen innerhalb eines bestimmten Bereiches leer sind oder ob die Anzahl der leeren Zellen ein bestimmtes Maß überschreitet.

Zeile hervorheben, wenn mindestens eine Zelle leer ist: (grundsätzlich analog)

Das geht natürlich auch in VBA. (Hierzu wird die Hilfsfunktion - Spaltennummer in Spaltenzahl umwandeln und umgekehrt verwendet)

Zeilen mit leeren Zellen hervorheben

Public Sub ZeilemitLeerzellenhervorheben()     Dim myRows As Long     myRows = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row     Dim myColumns As Long     myColumns = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column     Dim myRange As Range     Set myRange = Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(myRows, myColumns))          Dim ColumnLetter1 As String     Dim ColumnLetter2 As String     ColumnLetter1 = GetColumnLetter(1)     ColumnLetter2 = GetColumnLetter(myColumns)     Dim oFC As FormatCondition     Set oFC = myRange.FormatConditions.Add(Type:=xlExpression, Formula1:= _         "=ANZAHLLEEREZELLEN($" & ColumnLetter1 & "2:$" & ColumnLetter2 & "2)<>0")     With oFC.Interior         .PatternColorIndex = xlAutomatic         .Color = 65535         .TintAndShade = 0     End With     oFC.StopIfTrue = FalseEnd Sub