Flimmern
05.01.2009 21:10:00
Werner
ich hab schon wieder ein Problem: das nachfolgende Makro funtioniert zwar seh gut , aber (ich vermute es ist die Bildschirmaktualisierung) die eigendlich mit
Application.EnableEvents = False ein bzw am Ende mit True wieder eingeschaltet wird (dachte ich). Hir das Makro :
Option Explicit
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
With Sheets("Gehälter")
If .Range("N11") = 1 Then
If MsgBox("soll die Erhöhung von " & .Range("A11") & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
ma1ü
.Range("G11") = Sheets("Tabelle1").Range("E20")
Sheets("Tabelle1").Range("D14") = 0
ma1ü
End If
End If
If .Range("O11") = 1 Then
If MsgBox("Bitte bestätigen Sie die Aktualisierung von" & .Range("A11"), vbYesNo) = _
vbYes Then
Sheets("Gehälter").Range("R4") = Range("P7")
ma1ü
End If
End If
End With
Application.EnableEvents = True
End Sub
Wo liegt da der Fehler?
Gruß Werner