Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "redpill":
bbb
Case "HV-BMW":
aaa
Case "HV-MBN":
aaa
Case "HV-VW":
bbb
End Select
End Sub
Sub aaa()
bbb
Rows("117:165").EntireRow.Hidden = True
Rows("301:480").EntireRow.Hidden = True
Range("Jackson").EntireRow.Hidden = True
Range("HV").EntireRow.Hidden = False
Range("Carter").EntireRow.Hidden = True
Range("Transim1").EntireRow.Hidden = False
Range("Tealc").EntireRow.Hidden = True
Range("Transim2").EntireRow.Hidden = False
Range("ONeill").EntireRow.Hidden = True
Range("Transim3").EntireRow.Hidden = False
Range("Hammond").EntireRow.Hidden = True
Range("Transim4").EntireRow.Hidden = False
Range("Quinn").EntireRow.Hidden = True
Range("Transim4b").EntireRow.Hidden = False
Range("Mitchell").EntireRow.Hidden = True
Range("Transim4c").EntireRow.Hidden = False
End Sub
Sub bbb()
Rows("10:650").EntireRow.Hidden = False
End Sub
dim Zelle as range
set Zelle = Sheets("DeinDefintionsblatt").Columns(1).Find(what:=Target(1).Value, lookat:=xlwhole)
if not Zelle is Nothing then
if Zelle.Offset(0, 1).value > "" then Range(Zelle.Offset(0, 1).Value).entireRow.Hidden = false
if Zelle.Offset(0, 2).value > "" Then Range(Zelle.Offset(0, 2).Value).EntireRow.Hidden = True
end if
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen