Workshop 9: VBA-Programmierung mit MS Excel - Dr. Volker ...

Workshop 9: VBA-Programmierung mit MS ExcelPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)' Verhindert das Schließen des Formulars' durch das Kreuz in der TitelleisteConst conMsg As String = "Dieses Fenster kann nur über die Befehlsschaltfläche'Schließen' geschlossen werden!"If CloseMode = vbFormControlMenu ThenMsgBox Prompt:=conMsg, Buttons:=vbExclamation, Title:="Formularschließen"Cancel = TrueEnd IfEnd Sub3.2.3 Ereignisprozeduren für die Steuerelemente des FormularsFür alle vier Befehlsschaltflächen werden Ereignisprozeduren benötigt. Außerdem wird fürdas Textfeld txtTage eine Ereignisprozedur für das Change-Ereignis bereitgestellt.Private Sub cmdAddieren_Click()If Me!optKalendertage ThenMe!txtErgebnis = DateAdd("d", Me!txtTage, Me!txtDatum)ElseMe!txtErgebnis = ArbeitstageZaehlen(Me!txtTage, Me!txtDatum)End IfEnd SubPrivate Sub cmdSubtrahieren_Click()If Me!optKalendertage ThenMe!txtErgebnis = DateAdd("d", Me!txtTage * -1, Me!txtDatum)ElseMe!txtErgebnis = ArbeitstageZaehlen(Me!txtTage * -1,Me!txtDatum)End IfEnd SubPrivate Sub cmdLeeren_Click()Dim ctl As ControlFor Each ctl In Me.ControlsIf TypeName(ctl) = "TextBox" Thenctl.Value = vbNullStringEnd IfNext ctlMe!optKalendertage = TrueMe!cmdAddieren.Enabled = FalseMe!cmdSubtrahieren.Enabled = FalseEnd Sub© 2011, Dr. Volker Thormählen Seite 12 von 13