Spalten ein- und ausblenden (abhängig von Wert)
Wert)
habe ein kleines Problem und hier im Forum auch schon ein paar Infos gefunden, die mir weitergeholfen haben - nur funktioniert es leider noch nicht wirklich:
Ich möchte abhängig von einem Zellwert (Monatszähler) immer eine entsprechende Bemerkungsspalte für diesen Monat ein- und die der restlichen Monate ausblenden. Immer wenn man in der Monatszähler-Zelle den Wert ändern, soll auch die entsprechende Bemerkungsspalte angezeigt werden.
Hierzu habe ich bis jetzt folgendes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Dim i As Integer
Set zelle = Range("B6")
i = zelle.Value
Select Case i
Case "1"
ActiveSheet.EntireColumn.Hidden = False
Columns("AF:AP").Select
Selection.EntireColumn.Hidden = True
zelle.Select
Case "2"
ActiveSheet.EntireColumn.Hidden = False
Columns("AE:AE").Select
Selection.EntireColumn.Hidden = True
Columns("AG:AP").Select
Selection.EntireColumn.Hidden = True
zelle.Select
Case "3"
ActiveSheet.EntireColumn.Hidden = False
Columns("AE:AF").Select
Selection.EntireColumn.Hidden = True
Columns("AH:AP").Select
Selection.EntireColumn.Hidden = True
zelle.Select
'... (case 4-12)
Case Else
zelle.Select
End Select
End Sub
Leider tut sich wie gesagt nicht viel... An was könnte das liegen (Hab leider nicht allzu viel Ahnung von VBA...)
Vielen Dank im Voraus für eure Hilfe!
Gruß,
Silke