eine Frage, gibt es eine Möglichkeit die belegten Zeilen z.B. in Spalte O zu zählen und in der Spalte nebendran auszugeben? also nicht über kopieren, das funktioniert nicht.
Vielen Dank,
gruß
Richard
Sub zählen()
Dim iRows As Integer, iRowL As Integer, iColL As Integer, iCounter As Integer
iColL = Cells(2, 256).End(xlToLeft).Column '2 ist spalte
iRowL = Cells(Rows.Count, 2).End(xlUp).Row '2 ist spalte
For iRow = 1 To iRowL
If Rows(iRow).Hidden = False Then
If WorksheetFunction.CountA(Rows(iRow)) > 0 Then
iCounter = iCounter + 1
End If
End If
Next iRow
MsgBox iCounter
End Sub