im Modul1 läuft als erstes Makro Sub Set_Year()
Bevor nun dieses Makro abläuft müssten jetzt in den Sheets 1-12 folgendes Makro aus geschaltet werden
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
und wenn das Sub Set_Year schliesen will müssen die Makros in den Sheets 1-12 wieder aktiviert _
werden.
Sub Set_Year()
1-12 DEAKTIVIEREN = "
Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
Dim o As Long
Dim Blatt As Object
For o = 5 To Sheets.Count
ActiveWorkbook.Sheets(o).Activate
Call WochenFarbe
Call WochenFarbe2
Call FarbeAuslesen
Call FarbeAuslesen2
Call FarbeAuslesenF
Next o
Sheets("1").Visible = True
Range("E3").Select
Sheets("Inhalt").Visible = True
Sheets("Inhalt").Select
For Each Blatt In Sheets
If Blatt.Name ActiveSheet.Name Then
Blatt.Visible = False
End If
Next Blatt
Calculate
Sheets("Inhalt").Select
Range("A1").Select
1-12 AKTIVIEREN = "
Private Sub Worksheet_Change(ByVal Target As Excel.Range)"
End Sub
Ich weis nicht wie ich das lösen soll, bitte um HilfeGrus Matthias