Wenn die Steuerelemente einer Form einen definierten Anfangswert besitzen sollen, muss dieForm nach dem Öffnen initialisiert werden.
Die Ereignisprozedur dafür heißt userform_initialize.
Private Sub UserForm_Initialize()
End Sub
Abbildung 186, Prozedurrumpf zum Initialisieren einer Form
Abbildung 187, Zwei voreigestellte Datumswerte
Diese Beispielform enthält die beiden SrollBars scrAnf und scrEnd und die beiden Textfelder txtAnfDatum und txtEndDatum.
Untenstehende Initialize-Prozedur setzt Max- und Min-Werte für die Scollbars und stellt aktulle Datumswerte ein, die 1 Jahr auseinander liegen. Diese Werte werden in den Textfeldern txtAnfDatum und txtEndDatum eingeschrieben.
Private Sub UserForm_Initialize()
'Durch die Initialize-Prozedur werden Steuerelemente nach dem Laden der Form mit Werten vorbesetzt.
'Als Zeichen, dass die Werte im Grundzustand sind, wird die Hintergrundfarbe der _
Textfelder auf Magenta gesetzt.
AnfJahr = Year(Date) - 1
AnfMonat = 7
AnfTag = Day(DateSerial(AnfJahr, AnfMonat + 1, 0))
scrAnf.Min = DateSerial(2000, 1, 1)
scrEnd.Min = DateSerial(2000, 1, 1)
scrAnf.Max = DateSerial(AnfJahr + 1, 12, 31)
'Abrechnungsperiode für alle
scrAnf.Value = DateSerial(AnfJahr, AnfMonat, 1)
txtAnfDatum = Format((scrAnf.Value), "ddd dd.mm.yyyy ") ' AnfDatum anzeigen
txtAnfDatum.BackColor = RGB(255, 0, 255) 'Magenta
scrEnd.Value = DateSerial(AnfJahr + 1, AnfMonat, 0)
txtEndDatum = Format((scrEnd.Value), "ddd dd.mm.yyyy ") ' EndDatum anzeigen
txtEndDatum.BackColor = RGB(255, 0, 255) 'Magenta
End Sub
Nicht gefunden, was Sie suchen? Dann geben Sie hier Ihren Suchbegriff ein!