ich habe folgenden funktionierenden Code...
Sub ADM76103()
Sheets("76103").Cells.EntireRow.Hidden = False 'alles einblenden
'ausblenden
For i = 1 To 500
If Sheets("76103").Range("A" & i).Value = "" Then
Sheets("76103").Rows(i).Hidden = True
End If
Next
End Sub
Allerdings dauert mir das ganze noch zu lange und die begrenzung auf 500 Zeilen stört etwas.
habt Ihr noch Ideen wie man das ganze verbessern kann?
Vielen Dank
steffen