Ich habe im Sheets "Feb" das untere Makro in dieser Arbeitsmappe eingefügt.
In AM1 steht das Jahresdatum als Standard formatiert.
Nun sollte wenn kein Schaltjahr ist, die Spalte "AE" ausgeblendet werden.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Schaltjahr As Boolean
If Not Intersect(Target, Range("AM1")) Is Nothing Then
Schaltjahr = (Day(DateSerial(Range("AM1"), 2, 29)) = 29)
Range("AE:AE").EntireColumn.Hidden = Not Schaltjahr
End If
End Sub
Leider funktioniert es nicht.Könnte mir dazu bitte wer weiterhelfen?
Danke, Heinz