Worksheet_Calculate() ScreenUpdating
23.06.2006 00:52:16
dennis
warum funktioniert hier nicht das >Application.ScreenUpdating = False
Der Code fokusiert immer Sheet Rechnung Feld F9 (soll ja auch selectiert werden, aber wäre da nich screenupdating.
In Sheet Memo
[code]
Private Sub Worksheet_Calculate()
'Cursorverfolgung abstellen
'ScreenUpdating = False
Application.ScreenUpdating = False
Application.EnableEvents = False
If Sheets("Memo").Range("D1") = 7 Then
Worksheets("Rechnung").Range("F9").Select
Selection.Locked = False
End If
If Not Sheets("Memo").Range("D1") = 7 Then
Worksheets("Rechnung").Range("F9").Select
Selection.Locked = True
End If
'Cursorverfolgung anstellen
'ScreenUpdating = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
[/code]
Gruß und dank.
Gruß aus Hessen
dennis