Zeilen zählen
13.07.2005 11:28:12
Benstöm
ich habe von euch ein Makro übernommen, welche sdie Zeilen zählt die belegt sind und den Weret in einer MsgBox ausgibt. Wie kann ich den Wert in einer Zelle augeben lassen.
Sub VisibleRowsCount()
Dim iRows As Integer, iRowL As Integer, iColL As Integer, iCounter As Integer
iColL = Cells(1, 256).End(xlToLeft).Column
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
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
Vielen Dank für eure Mühe
Gruß
Martin
Anzeige