Tabellen ausblenden über VBA mit Bedingung
19.04.2018 21:27:39
Tobias
ich habe mir hier mal etwas erstellt um Tabellen bedingt durch den Inhalt von der Zelle B41 auszublenden.
Je nachdem welche Zahl dort steht werden mehr oder weniger Spalten ausgeblendet.
Der Inhalt der Zelle B41 wird aber durch ein anderes Tabellenblatt automatisch geändert.
In diesen Fall werden keine Zellen aus oder eingeblendet.
Ich weis das es ein Problem ist, weil ich im Privat Sub arbeite.
Aber wie kann ich diese Ausblendung automatisieren ?
Vielen Dank schonmal
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B41") Then
Select Case Target.Value
Case Is = 1
Worksheets("EM").Columns("S:QH").Hidden = True
Case Is = 2
Worksheets("EM").Columns("S:AJ").Hidden = False
Worksheets("EM").Columns("AK:QH").Hidden = True
HIER NOCH WEITERE CASE IS =
Case Is = 25
Worksheets("EM").Columns("S:QH").Hidden = False
Worksheets("EM").Columns("QI:QH").Hidden = True
End Select
End If
End Sub
Anzeige