kurz vor knapp noch eine Frage :
wie wähle ich per VBA die jeweils nächste sichtbare Zeile
bei Autofilter an ?
Range("p72").SpecialCells(xlCellTypeVisible).Offset(1, 0).Select
bringt´s jedenfalls nicht so ganz
Herzliche Grüße
R.Schmitt
Sub Auftrag()
Dim i
i = 1
Do Until Range("P73").Offset(i, 0).EntireRow.Hidden = False
i = i + 1
Loop
Range("P73").Offset(i, 0).Select
End Sub