Spalte bei Bedingung ausblenden
18.06.2009 07:21:03
DieterL
ich habe folgendes Problem:
In Zelle A1 steht ein Datum z.B. 01.06.2009. I den Zallen D8 - AH8 stehen Formeln (in D8 steht =A1, in E8 steht D8+1 usw.). Die Zelle sind als Datum formatiert und zeigen einen ganzen Monat an.
Ich möchte nun per Makro die Spalten ausblenden deren Monat nicht mit dem Monat in A1 übereinstimmt.
Das erste Makro startet das zweite und funktioniert auch, beim zweiten komme ich nicht weiter.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ausblenden
End If
End Sub
Sub ausblenden()
If Monat(AE8+1) = Monat(A1) Then Columns(AF).Hidden = False
Else Columns(AF).Hidden = True
End If
End Sub
Gruß, DieterL
Anzeige