Initialisieren

Wenn die Steuerelemente einer Form einen definierten Anfangswert besitzen sollen, muss die Form nach dem Öffnen initialisiert werden.

Die Ereignisprozedur dafür heißt userform_initialize.

Private Sub UserForm_Initialize()

 

End Sub

 

Abbildung 194, Prozedurrumpf zum Initialisieren einer Form

Abbildung 195, 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

s. Beispielarbeitsmappe Scrollbar.xlsm

More:

CommandButton