Hallo zusammen,
ich erstelle gerade einen Kalender auf Excel 2010, in dem man per Dropdown jeden Tag eine Kategorie zuweisen kann (Beispiel: Schule, Urlaub). Ich möchte, dass man eine Info-Meldung erhält, wenn man nur noch 5 Tage (bzw. weniger) Resturlaub hat, wenn man einen Urlaubstag einträgt und der Resturlaub bei 5 Tagen (bzw. weniger) liegt. Hierfür habe ich auch ein Makro erstellt, das soweit funktioniert, BIS AUF: wenn ich mehrere Zeilen markiere und den Zelleninhalt lösche, so taucht eine VBA-Fehlermeldung auf. Das will ich vermeiden.
Mein Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Range("A22") < 6) and Target.Value = "Urlaub" Then
MsgBox "Sie haben für dieses Jahr noch " & Worksheets("Daten").Range("C15") & " Urlaubstage übrig!", vbInformation, "Urlaub"
End If
End Sub
Erklärung:
Wenn man weniger als 6 Resturlaubstage hat UND die letzte Änderung = "Urlaub" ist, so soll eine Info-Meldung auftauchen.
Weiß jemand, was ich anders machen muss, damit die VBA-Fehlermeldung nicht auftaucht, wenn man mehrere Zeilen markiert und löscht?
Vielen Dank im Voraus :) |