Sub Makro9()
application.screenupdating=false
Dim loTable As ListObject
For Each loTable In ActiveSheet.ListObjects
loTable.Range.Cells(3, 1).EntireRow.Hidden = True
loTable.Range.Cells(6, 1).EntireRow.Hidden = True
Next
application.screenupdating=true
End Sub
super, vielen Dank. This did the trick. Great!