Rows, flexibel ausblenden
07.12.2012 11:05:33
Matze,Matthias
ich möchte die Rows ausblenden, flexibel, das würde so aussehen:
Dantenbank ist bis Zeile10 gefüllt, ausgeblendet werden soll ab Zeile 12.
Wenn weitere Zeile eingegebn wird, dann zeile 13 usw
Sub TestZeileDazu()
Dim Loz As Long
With Tabelle4
ActiveSheet.Unprotect
Loz = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
Application.ScreenUpdating = False
.Columns("Q:XFD").EntireColumn.Hidden = True
.Rows("Loz:1048576").EntireRow.Hidden = True 'typen unverträglich Fehler 13
Application.ScreenUpdating = True
ActiveSheet.Protect
End With
End Sub
Matze