Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Select Case Target.Row
Case 19 To 27
Call ausblendenRow(19, 27)
Case 34 To 42
Call ausblendenRow(34, 42)
Case 49 To 57
Call ausblendenRow(49, 57)
Case 70 To 78
Call ausblendenRow(70, 78)
Case Else
End Select
End Sub
Function ausblendenRow(rowstart&, rowend&)
Dim i&, rng As Range
Application.ScreenUpdating = False
For i = rowstart To rowend
If IsEmpty(Rows(i).Cells(1)) Then
If rng Is Nothing Then
Set rng = Rows(i).Cells(1)
Else
Set rng = Union(rng, Rows(i).Cells(1))
End If
End If
Next
If Not rng Is Nothing Then
rng.EntireRow.Hidden = True
rng(1).EntireRow.Hidden = False
rng(1).Select
End If
Application.ScreenUpdating = True
End Function