Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Calculate-Ereignis auslösen

Forumthread: Calculate-Ereignis auslösen

Calculate-Ereignis auslösen
02.12.2005 14:01:01
zink
Hallo,
wenn ich z.B. bei der Aktivierung des Arbeitsblattes das Calculate-Ereignis "manuell" auslösen will, funktioniert das nicht:

Private Sub Worksheet_Activate()
Me.Calculate
End Sub


Private Sub Worksheet_Calculate()
MsgBox "Calculate aufgerufen"
End Sub

Eigentlich müßte doch aus "Worksheet-Activate" das "Worksheet-Calculate"-Ereignis aufgerufen werden. Wie mache ich das?
Danke für die Hilfe
Joachim
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Calculate-Ereignis auslösen
02.12.2005 14:17:11
Matthias
Hallo Joachim,
wenn es aber nichts zu berechnen gibt, wird das Ereignis trotz Calculate-Befehl nicht ausgelöst.
Da müsstest du dann gezielt Werte verändern, die das Calculate-Ereignis auslösen.
Was ist denn der Hintergrund deiner Frage?
Gruß Matthias
AW: Calculate-Ereignis auslösen
ransi
hallo joachim
ergänzend zu Matthias:
Schreib in irgendeine zelle was flüchtiges.
z.B. =heute()
dann gibst was zu berechnen und dein code sollte laufen.
ransi
Anzeige
AW: Calculate-Ereignis auslösen
02.12.2005 14:29:48
zink
Hallo Matthias,
erstmal Danke für Deinen Hinweis - Du hast mir damit schon ein Stück weitergeholfen.
Eigentlich will ich was ganz einfaches:
Beim Verlassen der Zelle eines Arbeitsblattes (Selection-Change) will ich diese Zelle speziell formatieren. Dummerweise gibt mir das Selection-Change-Ereignis aber die Zielzelle zurück (Target) und nicht die Zelle, die ich eben verlassen habe. Eine globale Variable auf Modulebene verliert ihren Wert, wenn die Ereignisprozedur verlassen wird. Ich kann also nicht einfach zwischenspeichern.
Also hab ich mit sich aufrufenden Ereignissen rumgespielt, auch mit dem Calculate Ereignis, um den Wert der globalen Variablen zu erhalten. Auf Modulebene geht keine Deklaration via "static".
Hab im Moment irgendwie einen Hohlblock im/Vorm Kopf :-)
Grüße und nochmals Danke
Joachim
Anzeige
AW: Calculate-Ereignis auslösen
02.12.2005 14:34:17
Matthias
Hallo Joachim,
wie wäre es damit:

Option Explicit
Dim z As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not z Is Nothing Then
MsgBox z.Address & " war selektiert!"
End If
Set z = Target
End Sub

Gruß Matthias
Anzeige
AW: Calculate-Ereignis auslösen
02.12.2005 14:39:55
zink
Hallo Matthias,
ganz, ganz herzlichen Dank - genau das ist die Lösung, die ich gebraucht habe. Funktioniert prima.
Man hab ich mich angestellt ...
Grüße
Joachim
AW: Calculate-Ereignis auslösen
02.12.2005 14:46:02
Matthias
Hallo Joachim,
da ist es manchmal wirklich besser, nach dem Hintergrund zu fragen ;-)
Gruß Matthias
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige