'*** Eingabekontrolle ***
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Wenn die Eingabezelle nicht A1 ist, Sub verlassen
If Target.Address <> "$B$37" Then Exit Sub
' Wenn der Eingabewert nicht numerisch ist, Sub verlassen
If IsNumeric(Target) = False Then Exit Sub
' Prüfung, welcher Wert eingegeben wurde
Select Case Target
' Wenn eine 1 eingegeben wurde, Makro1 aufrufen
Case 10: Call Endeinfo
End Select
End Sub
Sub Endeinfo()
Dim Msg As String
Msg = "Das Monatsende ist fast erreicht oder erreicht !" & vbCr & "Bitte denken Sie an die Monatsabrechnung." & vbCr & "" & vbCr & "INPULS" & vbCr & "" & vbCr & ""
MsgBox Msg, vbInformation Or vbOKOnly, "Datenblatt"
End Sub