Dim y As String
Dim x As String
Dim x2 As String
Public Sub TestEinAusblenden_click()
x = Worksheets("Tabelle1").Range("C15").Value
x2 = Left(x, 9) 'wählt die ersten 9 Zeichen der in der Variable "x" aus
If x2 = "Stuttgart" Then
Worksheets("Tabelle2").Rows("15").Hidden = False
Worksheets("Tabelle3").Rows("10").Hidden = False
Else
Worksheets("Tabelle2").Rows("15").Hidden = True
Worksheets("Tabelle3").Rows("10").Hidden = True
End If
End Sub
Public Sub BananeEinAusblenden_click()
y = Worksheets("Tabelle1").Range("C13").Value
If y "Obst" Then
Worksheets("Tabelle2").Rows("16").Hidden = False
Worksheets("Tabelle3").Rows("14").Hidden = False
Else
Worksheets("Tabelle2").Rows("16").Hidden = True
Worksheets("Tabelle3").Rows("14").Hidden = True
End If
End Sub