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

Workshop 9: VBA-Programmierung mit MS ExcelDas Formular frmDatumsRechner beinhaltet genau 13 Steuerelemente:3 Textfelder3 zugehörige Bezeichnungsfelder4 Befehlsschaltflächen2 Optionsfelder1 Rahmen zur Bildung der OptionsgruppeMit folgender Standardprozedur lassen sich die Namen aller Steuerelemente des Formularsin das Direktfenster schreiben:Private Sub SteuerelementeListen()Dim ctl As ControlFor Each ctl In frmDatumsrechner.ControlsDebug.Print ctl.Name & Space(15 - Len(ctl.Name)) & _Space(3) & TypeName(ctl)Next ctlEnd Sub3.2 Ereignisprozeduren3.2.1 Ereignisprozedur für die ArbeitsmappeDas benutzerdefinierte Dialogfeld frmDatumsrechner soll automatisch gestartet werdenmit folgender Ereignisprozedur auf der Ebene der aktuellen Arbeitsmappe:Private Sub Workbook_Open()frmDatumsrechner.ShowEnd Sub3.2.2 Ereignisprozeduren für das FormularDas Formular (UserForm) enthält zwei Ereignisprozeduren: Eine für das Ereignis Initializeund eine weitere für das Ereignis QueryClose.Private Sub UserForm_Initialize()Me!txtDatum = DateMe!optKalendertage = TrueMe!cmdAddieren.Enabled = FalseMe!txtErgebnis.Enabled = FalseMe!cmdSubtrahieren.Enabled = FalseWith Me!txtErgebnis.Enabled = False.ForeColor = vbBlueWith .Font.Bold = True.Size = 10End WithEnd WithMe!txtTage.SetFocusEnd Sub© 2011, Dr. Volker Thormählen Seite 11 von 13