Hallo zusammen ich bräuchte mal Eure Hilfe: Ich erstelle gerade einen Urlaubskalender für meine Kollegen, Es soll eine Msgbox aufploppen wenn zuviele gleichzeitg sich mit Urlaub eintragen.Rechts neben dem Namen sind die Tage des Kalenders wo man ein "U" einträgt.Tragen 3 oder mehr sich ein ploppt die Hinweisbox auf (Überschneidung Urlaub,Bitte abklären o.ä) damit nicht nicht zuviele Abwesend sind. Die "U"s werden also in einer Extraspalte (Abwesend: x ) addiert.
Wird die 3 oder höher erreicht ploppt die Box nur 1x auf und nicht bei jeder Zelleingabe (..nervt) Klappt soweit wenn sich 3 Mitarbeiter eintragen.
Leider aber auch wenn sich 1 Mitarbeiter an 3 Tagen in seiner Spalte nebenander einträgt(Abwesendheitspalte oben dann : 1 + 1 +1 ,also 3) Die Spalte wird addiert sobald es 3 ergibt mit der Msbox. Das macht so keinen Sinn aber ich krieg es einfach nicht hin. Hier mein Code den ich gebastelt habe :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Summe As Integer
Summe = Application.Sum(Range("H3:NH3"))
If Summe Mod 3 = 0 And Summe > Nureinmal Then
MsgBox "Abwesenheit kritisch!!" & vbLf & "" & vbLf & "Bitte Vertetung klären" & _
vbLf & "" & vbLf & " - DANKE -", vbInformation, "Urlaubsüberschneidung"
Nureinmal = Summe
End If
End Sub
https://www.herber.de/bbs/user/164930.xlsm