Ich schreibe mein erstes Makro und habe folgendes Problem:
Ich möchte, dass als erstes alle Spalten eingeblendet werden, wenn E17 sich verändert damit dann,
wenn E17 z.B. Small anzeigt die Spalten N:S ausgeblendet werden können.
Sub Ausblenden()
Dim varSchalter As Range
Set varSchalter = ActiveSheet.Range("E17")
If varSchalter.Value = "SMALL" Then
Columns("L:M").EntireColumn.Hidden = False
ElseIf varSchalter.Value = "MEDIUM" Then
Columns("N:O").EntireColumn.Hidden = False
ElseIf varSchalter.Value = "LARGE" Then
Columns("P:Q").EntireColumn.Hidden = False
ElseIf varSchalter.Value = "X-LARGE" Then
Columns("R:S").EntireColumn.Hidden = False
End If
End Sub
Kann mir jemand helfen?