' 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