Vielen Dank Christian
Private Sub ComboBox3_Change()
ActiveSheet.Rows("8:26").Hidden = False
Select Case [W1]
Case 1
ActiveSheet.Rows("10:26").Hidden = True
Case 2
ActiveSheet.Rows("12:26").Hidden = True
Case 3
ActiveSheet.Rows("14:26").Hidden = True
End Select
End Sub