ich möchte mittels Combobox Zahlen zwischen 1 und 10 auswählen und in Abhängigkeit von der gewählten Zahl bestimmte Spalten ausblenden.
So klappt das ganze aber leider nicht:
Private Sub ComboBox1_Change()
ThisWorkbook.Worksheets("GV").Column("F:W").Hidden = False
Select Case [Berechnung!A12]
Case 1
ThisWorkbook.Worksheets("GV").Column("F:W").Hidden = True
Case 2
ThisWorkbook.Worksheets("GV").Column("H:W").Hidden = True
Case 3
ThisWorkbook.Worksheets("GV").Column("J:W").Hidden = True
Case 4
ThisWorkbook.Worksheets("GV").Column("L:W").Hidden = True
Case 5
ThisWorkbook.Worksheets("GV").Column("N:W").Hidden = True
Case 6
ThisWorkbook.Worksheets("GV").Column("P:W").Hidden = True
Case 7
ThisWorkbook.Worksheets("GV").Column("R:W").Hidden = True
Case 8
ThisWorkbook.Worksheets("GV").Column("T:W").Hidden = True
Case 9
ThisWorkbook.Worksheets("GV").Column("V:W").Hidden = True
Case 10
ThisWorkbook.Worksheets("GV").Column("W:W").Hidden = False
End Select
End Sub
Da bekomme ich immer den RunTimeError 438.
Weiss jemand was ich falsch mache?!
Vielen Dank,
Gruß
Christian