Makro funktioniert nur teilweise
03.01.2009 18:52:00
Werner
der erste teil des Makros funktioniert sehr gut, d.h. wenn in Zelle L11 die 1 steht und ich in der MsgBox auf Ok klicke wird die Berechnung durchgeführt.
Wenn in der Zelle N11 die 1 steht soll der nachfolgende Teil des Makros ausgelöst werden, was es aber nicht macht. Wo könnte der Fehler liegen?
Gruß Werner
Option Explicit
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
With Sheets("Gehälter")
If .Range("L11") = 1 Then
If MsgBox("soll die Erhöhung von " & .Range("A11") & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
ma1ü 'Makroname zur Berechnung von Mitarbeiter1
.Range("G11") = Sheets("Tabelle1").Range("E20") ' der Zeitp. wo von AG die Erhöhung wieder _
abgezogen werden muß, da es sich um eine EZ Handelt
Sheets("Tabelle1").Range("D14") = 0
If Range("N11") = 1 Then
ma1ü
.Sheets("Gehälter").Range("Q4") = Range("Q3") + Range("J11")
.Range("N11") = 0
End If
End If
End If
End With
Application.EnableEvents = True
End Sub