Makro ausführen bei Blatt wechsel
Valentino
Ich möchte, dass ein Makro ausgeführt wird, sobald ich das Tabellenblatt verlasse. Folgenden Code habe ich bereits, finde die korrekte Lösung jedoch nicht. Kann mir jemand helfen?
Sub worksheet_deactivate()
Dim IntAntwort As Integer
IntAntwort = MsgBox("Projekte mit NULL geplanten Stunden. Willst du diese jetzt planen?", _
vbYesNo, "Projekte mit NULL")
If IntAntwort = vbNo Then
Else
Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End If
End Sub
Besten Dank und schönen Abend.