ich sollte eben noch z.b. bereiche 100-120 + 130-135 etc. zusätzlich gleichtzeitig aus-einblenden.
Option Explicit
Sub blenden()
'* H. Ziplies *
'* 06.03.05 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
'Einblenden und Ausblenden der EDV Raumansicht
Dim Loi As Integer
Application.ScreenUpdating = False
For Loi = 36 To 67
Rows(Loi).EntireRow.Hidden = Not Rows(Loi).EntireRow.Hidden
Next Loi
Application.ScreenUpdating = True
End Sub