Supportnet / Forum / Tabellenkalkulation
Calculate Ereignis
Frage
Hallo Forum,
Ich habe ein Problem mit der Ereignissteuerung in Excel.
Ich habe eine Tabelle erstellt, in der auf Basis mehrerer variabler Parameter Kosten und Erlöse für einen Produktionsprozess errechnet werden. Wenn ich eine der Variablen ändere, möchte ich, dass anhand einer der anderen Variablen automatisch ein Szenario erstellt wird, indem diese Variable schrittweise verändert wird. Die Ergebnisse werden dann in ein Tabellenblatt geschrieben, das Quelle für eine Grafik ist.
Mit einem Button funktioniert das auch ganz gut (am Ende wird der Ausgangszustand bezgl. der vom Programm variierten Variable wiederhergestellt):
[code]Private Sub CommandButton1_Click()
Dim i As Integer
Dim crKosten, crErloes As Currency
Dim dblAuslastung, dblAuslastungAlt As Double
Dim strErloesZiel, strKostenZiel As String
dblAuslastungAlt = Worksheets("Abteilung").Range("C5").Value
For i = 1 To 9
dblAuslastung = i * 10 / 100
Worksheets("Abteilung").Range("C5").Value = dblAuslastung
crKosten = Worksheets("Abteilung").Range("c28").Value
crErloes = Worksheets("Abteilung").Range("c16").Value
crKosten = crKosten / 1000
crErloes = crErloes / 1000
strErloesZiel = "C" & (i + 1)
strKostenZiel = "B" & (i + 1)
Worksheets("Grafikdaten").Range(strKostenZiel).Value = crKosten
Worksheets("Grafikdaten").Range(strErloesZiel).Value = crErloes
Next i
Worksheets("Abteilung").Range("C5").Value = dblAuslastungAlt
End Sub[/code]
Ich hätte aber gerne, dass das bei Änderungen automatisch abläuft. Wenn ich aber die Ereignisse [b]Calculate[/b] oder [b]Change[/b] benutze, entsteht eine Endlosschleife. Der Code soll aber nur einmal ablaufen. Kann mir da jemand helfen?
Gruss,
grubie
Antwort 1 von ypsilon
hi,
Application.EnableEvents = False
´Dein Code
Application.EnableEvents = True
cu Micha
Application.EnableEvents = False
´Dein Code
Application.EnableEvents = True
cu Micha
Antwort 2 von grubie
Wow, das war schnell...
Und klappt.
Super! Vielen Dank.
Schönes Wochenende,
grubie
Und klappt.
Super! Vielen Dank.
Schönes Wochenende,
grubie