' Hervorheben von Zeilen, in denen mindestens eine Zelle leer ist Public Sub ZeilenMitLeerenZellenHervorheben() ' Ermitteln der letzten Zeile und Spalte mit Inhalt 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 ' Definieren des zu prüfenden Bereichs Dim myRange As Range Set myRange = Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(myRows, myColumns)) ' Umwandlung der Spaltennummer in Buchstaben Dim ColumnLetter1 As String Dim ColumnLetter2 As String ColumnLetter1 = ConvertToColumnLetter(1) ColumnLetter2 = ConvertToColumnLetter(myColumns) ' Hinzufügen der bedingten Formatierung Dim oFC As FormatCondition Set oFC = myRange.FormatConditions.Add(Type:=xlExpression, Formula1:= _ "=COUNTBLANK($" & ColumnLetter1 & "2:$" & ColumnLetter2 & "2)<>0") ' Festlegen der Formatierungsregeln With oFC.Interior .PatternColorIndex = xlAutomatic .Color = 65535 ' Gelb .TintAndShade = 0 End With ' Weiterführen der Prüfung trotz Übereinstimmung oFC.StopIfTrue = False End Sub