Gefilterete Zeilen zählen
05.04.2003 16:26:45
Achim
Wie muß der Code aussehen, damit nur die ausgefiltereten Zeilen gezählt werden und nicht die unsichtbaren.
Danke
Achim
Dim z As Integer
Dim zz As Integer
Dim s As Integer
zz = 11
s = Sheets("Preislis").UsedRange.Rows.Count
With Worksheets("Preislis")
For z = 1 To s
zz = zz + 1
ThisWorkbook.ActiveSheet.Cells(zz, 1).Value = .Cells(z, 1)
Next
End With
Anzeige