application.volatile
16.07.2003 16:55:36
Xico
wie war das noch mit Application.Volatile? Ich habe einen Code, der eine Berechnung in meiner Datenbank manuell durchführt. Ich möchte aber, dass die Berechnung immer dann stattfinden soll, wenn im Bereich meiner Daten eine Änderung stattfindet.
Hier der vereinfachte Code:
Function SS()
Application.ScreenUpdating = False
Dim a As Integer
For a = 41 To 81
If Cells(a, 23) = "" Then
Cells(a, 22) = "no Value"
Else
Select Case (Cells(a, 17) + Cells(a, 19) + Cells(a, 21))
'1.Fall
Case Is < Sheets(1).Cells(43, 3)
'Berechnung 1
'2. Fall
Case Is >= (Sheets(1).Cells(43, 3)) And (Cells(a, 17) + Cells(a, 19) + Cells(a, 21)) < (Sheets(1).Cells(45, 3))
'Berechnung 2
'3. Fall
Case Is >= Sheets(1).Cells(45, 3)
'Berechnung 3
End Select
End If
Next a
Application.ScreenUpdating = True
End Function
Wie modefiziere ich den Code mit application.volatile, dass oben genannter Wunsch in Erfüllung geht?
Danke und Gruss
Xico