calculate und change

Private Sub Worksheet_Calculate() Dim Target As Range If Not Intersect(Target, Me.Range("KdVorgaben")) Is Nothing Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Code im Tabellenmodul Private Sub Worksheet_Calculate() MsgBox "I am Worksheets_Calculation" 'Testzeile End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Me.Range("KdVorgaben")) Is Nothing Then Application.Calculation = xlCalculationAutomatic Else Application.Calculation = xlCalculationManual End If End Sub

Hallo Luc, hallo Jörg,
man könnte den Ablauf auch steuern, indem man eine Private- oder Public-Variable mit mit Daten füllt, die in der Calculate-Ereignisprozedur geprüft wird. Bei bestimmten Werten wird die Ereignisprozedur sofort wieder verlassen.
Das Problem ist hier, wie schon bei meinem Vorschlag, ein passendes Ereignis zu wählen um die Berechnung wieder zu starten. Der konsequenteste Weg ist hier das bewußte Freischalten z.B. per Buttonklick, dann könnte man ggf. sogar die Ereignismakros vorübergehend abschalten.
Über die Zwischenvariable könnte man auch die Target-Variable der Worksheet_Selection-Ereignis-Prozedur verarbeiten. Aber das zurücksetzen der Variablen muss halt irgendwie geregelt werden.
Gruß
Franz
Beispiel:

'Code in Tabellenblatt-Modul
Option Explicit
Private rngEingabe As Range
Private Sub CommandButton1_Click()
'Aktiviert Berechnung und Ereignisse wieder
Reset_Calculation
End Sub
Private Sub Worksheet_Calculate()
If Not rngEingabe Is Nothing Then Exit Sub
MsgBox "Calculate-Ereignis wird abgearbeitet"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If rngEingabe Is Nothing _
And Not Intersect(Target, Me.Range("KdVorgaben")) Is Nothing Then
'Application.EnableEvents = False
Set rngEingabe = Target
Application.Calculation = xlCalculationManual
End If
If Target.Address = "$B$3" Then
'Eingabe beenden durch Selektion der Zelle B3 - funktioniert nur wenn Ereignsmakros _
nicht deaktiviert werden
Reset_Calculation
End If
End Sub
'Dieses Makro z.B per Schaltfläche oder mit Selektion einer _
bestimmten Zelle starten
Sub Reset_Calculation()
'Application.EnableEvents = True
Set rngEingabe = Nothing
Application.Calculation = xlCalculationAutomatic
End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

calculate und change

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread