Makro ausführen wenn Zellwert sich ändert
joko
ich hab da leider ein Problem.
Das Makro läuft, wenn ich es manuell starte richtig, wenn ich es per Atuomatik starte falsch.
Ich möchte:
Im Blatt 2 (FEB) die Spalte für den 29. Tag Jahreszahlabhängig ein und ausblenden.
Jahreszahl wird veränder im Blatt1 Zelle A6.
Wäre schön wenn mir jemand helfen könnte das hin zu kriegen.
Im voraus schon mal herzlichen Dank.
John
Folgende Mkros habe ich eingestellt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$6" Then
SpaltenAusblenden
End If
End Sub
und
Sub SpaltenAusblenden()
Application.ScreenUpdating = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
For blatt = 1 To Sheets.Count - 1
i = 29
Sheets(blatt).Select
For i = 29 To 31
On Error Resume Next
If Month(Cells(8, 3)) Month(Cells(8, i + 2)) Then Cells(8, i + 2).EntireColumn. _
Hidden = True Else
If Month(Cells(8, 3)) = Month(Cells(8, i + 2)) Then Cells(8, i + 2).EntireColumn.Hidden _
_
= False
Next i
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Next blatt
' Sheets(1).Select
Application.ScreenUpdating = True
End Sub