|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Worksheet_Change(ByVal Target As Range) |
31.10.2016 14:29:42 |
Marco |
|
|
|
31.10.2016 16:12:12 |
Gast1750 |
|
|
|
01.11.2016 11:42:16 |
Marco |
|
|
|
01.11.2016 23:42:58 |
Gast95253 |
|
|
|
02.11.2016 07:36:54 |
Marco |
|
|
Von:
Marco |
Datum:
31.10.2016 14:29:42 |
Views:
1196 |
Rating:
|
Antwort:
|
Thema:
Worksheet_Change(ByVal Target As Range) |
|
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 :) |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Worksheet_Change(ByVal Target As Range) |
31.10.2016 14:29:42 |
Marco |
|
|
|
31.10.2016 16:12:12 |
Gast1750 |
|
|
|
01.11.2016 11:42:16 |
Marco |
|
|
|
01.11.2016 23:42:58 |
Gast95253 |
|
|
|
02.11.2016 07:36:54 |
Marco |
|
|