Private Sub macht Probleme
29.04.2025 13:32:32
Sandra
mein Programm startet auf dem Tabellenblatt "Start", auf diesem Blatt gibt es kein Private Sub.
Über einen Button wird das Tabellenblatt "Input" aktiviert, hier liegt folgendes Private Sub:
Private Sub Worksheet_Calculate()
Static BB1_alt As Variant
If Range("BB1").Value > BB1_alt Then
If Range("N2").Value = "" Then
Call Up_Downstream
Else
Call Up_Downstream_HR
End If
BB1_alt = Range("BB1").Value
End If
End SubDies dient zur Abfrage um Grafiken ein- oder auszublenden. Zelle BB1 enthält eine Formel.
Jetzt habe ich aber das Problem, dass beim Starten der Arbeitsmappe, diese Private Sub ausgelöst wird... und ich verstehe nicht warum.
Die Formel in Zelle BB1 bezieht sich nur auf Zelleninhalte der Input Seite. Ich hab schon versucht mir durch folgendes Makro unter "diese Arbeitsmappe" zu helfen:
Private Sub workbook_open()
Application.EnableEvents = False
Zellen_freigeben 'Makro um den Zellschutz zu entfernen
Sheets("Start").Select
Application.EnableEvents = true
End Subaber leider hat das auch nicht so richtig funktioniert.
Vielleicht hat jemand eine Idee woran es liegen könnte. Vielen Dank für Eure Hilfe im Voraus.
Gruß
Sandra
Anzeige