Verkürzung Makro Columns
Stefan
ich habe hier ein Makro, dass ich teilweise bereits erstellt habe. Es wird immer geschaut welchen Wert die Zelle G19 hat. Sobald dieser einen Wert zwischen 1 und 20 annimmt, sollen die entsprechend Spalten ausgeblendet werden. Meine Frage wäre nun, wie kann ich diesen Makro soweit vereinfachen, dass ich nicht alle 20 Bedinungen aufschreiben muss, sondern nur noch eine in der aber immer nach dem Wert G19 geschaut wird?
Wäre superm, wenn ihr mir helfen könntet Zeit zu sparen!
Besten Dank für eure Hilfe!
Gruß
Stefan
If Range("G19").Value = 1 Then
Worksheets("Überblick_Markt").Columns("K:L").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("M:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 2 Then
Worksheets("Überblick_Markt").Columns("K:N").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("O:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 3 Then
Worksheets("Überblick_Markt").Columns("K:P").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("Q:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 4 Then
Worksheets("Überblick_Markt").Columns("K:R").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("S:AW").EntireColumn.Hidden = True
ElseIf Range("G19").Value = 5 Then
Worksheets("Überblick_Markt").Columns("K:T").EntireColumn.Hidden = False
Worksheets("Überblick_Markt").Columns("U:AW").EntireColumn.Hidden = True
End If