Makro wird nicht ausgelöst
23.02.2009 22:04:09
Werner
habe schon wieder ein Problem.Wenn in Zelle N11 die 1 steht (was durch eine Formel der Fall ist =WENN(B$7=D11;1;0) wird das Makro nicht ausgelöst. Erst wenn ich in die Entwiklungsumgebung gehe und es auslöse geht es. Woran könnte das liegen. Im Tabellenblatt habe ich unter Optionen bei Berechnen auf Automatisch gestellt, hilft aber nichts.
Sub ma1geez()
With Sheets("Gehälter")
If .Range("N11") = 1 Then
If MsgBox("soll die Erhöhung von " & " " & .Range("A11") & _
" wirklich übernommen werden?", vbYesNo) = vbYes Then
Range("R3") = .Range("Y2")
.Range("G11") = Sheets("Tabelle1").Range("E20")
ma1ü
Sheets("Tabelle1").Range("J14") = 0
Else
Sheets("Tabelle1").Range("J14") = 0
End If
End If
If .Range("O11") = 1 Then
If MsgBox("Bitte bestätigen Sie die Aktualisierung von" & " " & .Range("A11"), vbYesNo) _
= vbYes Then
.Range("R11") = Range("J11")
.Range("R3") = .Range("Y2")
ma1ü
Range("G11") = ""
Else
Range("G11") = ""
End If
End If
End With
End Sub
Gruß Werner