Kategorie:
(Tipp 136)
Wie kann ich die Anzahl der Einträge in einer Spalte feststellen?
Wenn nur die letzte Zeile festgestellt werden soll:
Sub letzteZeile() MsgBox Cells(Rows.Count, 1).End(xlUp).Row End Sub
Zellen mit Inhalt:
Sub ZellenZaehlen() Dim intI As Integer, rngZelle As Range intI = 0 For Each rngZelle In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Cells If rngZelle.Value <> "" Then intI = intI + 1 Next MsgBox intI End Sub
Formel:
=ANZAHL2(C1:C8)
VBA mit Nutzung der der Worksheetfunction:
MsgBox Application.WorksheetFunction.CountA(Range("C2:C20"))