AW: Schaltjahr
04.01.2012 21:39:20
fcs
Hallo Werner,
wie André schon schrieb: Das Change-Ereignis wird durch die Änderungen mit dem Drehfeld nicht ausgelöst, auch wenn du die Zelle B3 als Target-Zelle prüfst.
Möglichkeit A: Du verwendest das Calculate-Ereignis des Sheets
Private Sub Worksheet_Calculate()
With Me.Range("BO:BO").EntireColumn
If Range("B6").Value = "KeinSchaltjahr" And .Hidden = False Then
.Hidden = True
ElseIf Range("B6").Value = "Schaltjahr" And .Hidden = True Then
.Hidden = False
End If
End With
End Sub
Möglichkeit B: Du weist dem Drehfeld das folgende Makro zu, welches du vorher in ein allemeines Modul der Datei kopierst.
Public Sub Spalte_BO_Ein_Aus()
With Range("BO:BO").EntireColumn
If Range("B6").Value = "KeinSchaltjahr" Then
.Hidden = True
Else
.Hidden = False
End If
End With
End Sub
Möglichkeit C:
Du verwendest das Drehfeld/Spinbutton aus den Active-X-Steuerelementen mit folgendem Ereignismakro:
Private Sub SpinButton1_Change()
With Me.Range("BO:BO").EntireColumn
If Range("B6").Value = "KeinSchaltjahr" Then
.Hidden = True
Else
.Hidden = False
End If
End With
End Sub
Unter den Eigenschaften des Spinbuttons stellst du ein:
LinkedCell: B3
Min: 1900
Max: 9999
Gruß
Franz