18.06.2015, 11:59
Hallo Forum,
ich brauche mal wieder eure Hilfe,
Ich habe eine arbeitsmappe mit einem Arbeitsblatt (4) in dem einige Sachen eingegeben werden.
Unter anderem wird in einer Zelle (E4) die Differenz aus zwei Kalender-Daten in Tagen berechnet.
Wenn differenz jeweils 2 / 4 / 6 / 8 /10 / 12 beträgt soll eine Erinnerung erscheinen.
Ich habe dies in dieser Form realisiert. Jedoch will das so nicht laufen.
Kann mir jemand einen Tipp geben
Danke
Hubert
ich brauche mal wieder eure Hilfe,
Ich habe eine arbeitsmappe mit einem Arbeitsblatt (4) in dem einige Sachen eingegeben werden.
Unter anderem wird in einer Zelle (E4) die Differenz aus zwei Kalender-Daten in Tagen berechnet.
Wenn differenz jeweils 2 / 4 / 6 / 8 /10 / 12 beträgt soll eine Erinnerung erscheinen.
Ich habe dies in dieser Form realisiert. Jedoch will das so nicht laufen.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cb As CommandBar
Dim raBereich As Range
If ThisWorkbook.Worksheets(4).Range("B29").Value >= 1 Then
If MsgBox("An die Weiterführung der Antibiosetage gedacht ???", vbYesNo, "Hinweis") = vbNo Then
Application.GoTo ThisWorkbook.Worksheets(4).Range("k25")
Cancel = True
End If
End If
If ThisWorkbook.Worksheets(4).Range("K5") = "" And ThisWorkbook.Worksheets(4).Range("c4") <> "" Then
MsgBox ("Bitte das Aufnahmedatum eingeben")
Range("k5").Select
Cancel = True
End If
If ThisWorkbook.Worksheets(4).Range("e9").Value = 2 Or 4 Or 6 Or 8 Or 10 Or 12 Then
MsgBox ("Trala") 'mit dieser Anweisung gibt er mir die MsgBox immer aus egal welcher Wert in E9 steht
End If
Kann mir jemand einen Tipp geben
Danke
Hubert