Zähle nicht leere Zellen in Zeile x

Question

Was ich erreichen möchte, ist das Zählen von nicht leeren Zellen in Zeile lRow. Ich habe Fehler in der dritten Zeile des Makros. Ich habe keine Ahnung, wie ich das beheben kann.

Sub CountNonEmptyCells() 

    lRow = Cells(Rows.Count, 1).End(xlUp).Row 

    Rows(lRow).SpecialCells(xlCellTypeConstants, 23).Cells.Count 
    MsgBox lRow 

End Sub 

Answer 1

geschweige denn, ich es selbst festgelegt:

Sub CountNonEmptyCells() 

    lRow = Cells(Rows.Count, 1).End(xlUp).Row 

    x = Rows(lRow).SpecialCells(xlCellTypeConstants, 23).Cells.Count 
    MsgBox x 

End Sub