Vermutlich einfach beide zusammen legen?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("E23").Value = "Nein" Or Range("E23").Value = "" Then
Rows("24:28").EntireRow.Hidden = True
Rows("33").EntireRow.Hidden = True
Rows("29:32").EntireRow.Hidden = False
' Sheets("Tabelle2").Select
' Sheets("Tabelle1").Select
Else:
Rows("24:28").EntireRow.Hidden = False
Rows("33").EntireRow.Hidden = False
Rows("29:32").EntireRow.Hidden = True
' Sheets("Tabelle2").Select
' Sheets("Tabelle1").Select
End If
If Range(I21).Value = "" Or Range(I21).Value = "1" Then
Rows("19").EntireRow.Hidden = True
' Sheets("Tabelle2").Select
' Sheets("Tabelle1").Select
Else:
Rows("19").EntireRow.Hidden = False
' Sheets("Tabelle2").Select
' Sheets("Tabelle1").Select
End If
End Sub
PS: Select ist böse und frisst unartige Kinder!
|