Zelle überwachen mit Formel

Hallo,
heute noch ein Frage.
Ich möchte auf der Input Seite die Zelle BB1 überwachen. Hier ist eine Formel hinterlegt, die 1,2,3 oder 4 ausgibt.

immer wenn sich diese Zahl ändert, soll ein Makro ausgeführt werden, dass Grafiken ein- und ausblendet: Sub Up_Downstream()

Ich weiß, dasss mich mit worksheet_caculate arbeiten muss, nur leider funktioniert mein Code nicht.

hab es so:

Option Explicit

Public updown As Long

Sub Worksheet_Calculate()





If Range("$BB$1") = updown Then



Exit Sub

Else

Up_Downstream

End If

updown = Range("$BB$1")

End Sub

und so probiert:

Private Sub Worksheet_Calculate(ByVal Target As Range)

If Target.Address = "$BB$1" Then





Up_Downstream

End If



End Sub

Beides funktioniert nicht und blockiert zudem dann noch das Sub Up_Downstream wenn ich es händisch ausführen möchte.

danke schonmal...

VG
Sandra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() 'referenzwert in E1 If Range("E7").Value > Range("E1") Then MsgBox "Änderung!" 'Up_Downstream 'dein Makro hier Range("E1").Value = Range("E7").Value 'neuen Referenzwert setzen End If End Sub

Hi
bei Formeln ist das Calculate-Event das richtige.
Das Problem ist, dass du nicht ermitteln kannst, welche Zellen neu berechnet werden und ob diese Neuberechnung dann auch ein neues Ergebnis gebracht hat. Daher hat das Calculate-Event auch keinen Parameter TARGET. Wenn du diesen hinzuerfindest, kann das Makro nicht funktionieren.
Damit die Events automatisch funktionieren, musst du die Kopfzeile so übernehmen, wie sie bei der automatischen Erstellung angelegt wird.

Wenn du also verhindern willst, dass dein Makro unnötig oft ausgeführt wird, musst du dir merken, welcher Wert vorher in der Zelle stand und welcher Wert jetzt drin steht und das Das Makro nur dann einmalig ausführen, wenn der Wert sich unterscheidet.
Dazu kannst du, wie MCO zeigt, eine andere Zelle verwenden, in die du den alten Wert als Festwert reinschreibst, oder du kannst eine Variable vom Typ STATIC verwenden, dann benötigst du keine Zelle.
Variablen vom Typ Static behalten ihren Wert nach Makroende und haben diesen auch dann noch, wenn das Makro erneut gestartet wird:

Private Sub Worksheet_Calculate()

static BB1_alt as variant

If Range("BB1").value > BB1_alt then

    Call Makro_Grafik_ein_aus 'oder wie immer du da Makro benannt hast

    BB1_alt = Range("BB1").value

end if

End Sub

der Unterschied zwischen statischer Variable und hinterlegen in einer Zelle ist, dass die Statische Variable nach dem Öffnen der Datei zunächst immer leer ist, dh das Makro wird dann beim ersten Change-Eventaufruf einmal ausgeführt.
Hinterlegst du den Wert in einer Zelle, dann wird diese natürlich mit gespeichert und ist dann nach dem Öffnen sofort verfügbar.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread