[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