| Userformen und
deren Steuerelemente |
|
Befehl / Beispiele |
Beschreibung |
|
<UserFormname>.Show |
Userform starten |
Sub
Start()
UF_Hinweis.Show
End Sub |
<UserFormname>.Left
Abstand vom linken Tabellenblattrand
<UserFormname>.Top
Abstand vom oberen Tabellenblattrand
|
Userform positionieren |
Sub FormPositionieren()
UF_Hinweis.Left = 300
UF_Hinweis.Top = 200
UF_Hinweis.Show
End Sub |
<UserFormname>.Width Breite
<UserFormname>.Height Höhe |
Größe der Userform setzen |
Sub FormGroesse()
UF_Hinweis.Width = 300
UF_Hinweis.Height = 300
UF_Hinweis.Show
End Sub |
|
Unload <UserFormname> |
Userform schließen |
Sub
UserformSchliessen()
Unload UF_Hinweis
End Sub |
|
<UserFormname>.Caption |
Titelleiste der Userform beschreiben |
Sub
UserformTitelleiste()
UF_Hinweis.Caption =
"Wichtiger Hinweis"
UF_Hinweis.Show
End Sub |
|
<UserFormname>.BackColor |
Hintergrundfarbe der Userform setzen |
Sub
Hintergrundfarbe()
UF_Hinweis.BackColor =
RGB(0, 0, 0)
UF_Hinweis.Show
End Sub |
|
<UserFormname>.Zoom = <Wert> |
Vergrößerungsfaktor der Form einstellen |
Sub ScrollBar1_Change()
UF_Hinweis.Zoom =
UF_Hinweis.ScrollBar1.Value
End Sub |
|
<UserFormname><Labelname>.Caption=<Text> |
Bezeichnungsfeld ( Label ) beschreiben
 |
Private Sub UserForm_Initialize()
'+-------------------------------------------------------------------------------+
'| Das Bezeichnungsfeld 'Label1' wird mit dem Eintrag 'Berechnungen: "
gefüllt |
'+-------------------------------------------------------------------------------+
UserForm1.Label1.Caption = "Berechnungen: "
End Sub |
|
<Variable>=<UserFormname><Labelname>.Caption |
Bezeichnungsfeld ( Label ) lesen
|
Private Sub UserForm_Initialize()
'+---------------------------------------------------------------+
'| Der Eintrag des Bezeichnunsfeldes 'Label1' wird in Zelle C3 |
'| des aktiven Tabellenblattes geschrieben
|
'+---------------------------------------------------------------+
Dim Text As String
Text = UserForm1.Label1.Caption
ActiveSheet.Cells(3, 3) = Text
End Sub |
|
|
Bezeichnungsfeld ( Textbox ) beschreiben
 |
|
|
|
|
Bezeichnungsfeld ( Textbox ) lesen
|
|
|
|
|
Kombinationsfeld ( Combobox )
 |
|
|
|
|
Listenfeld ( Listbox )
 |
|
|
|
|
Kontrollkästchen ( Checkbox )
 |
|
|
|
|
Optionsfeld ( OptionButton )
 |
|
|
|
|
Umschaltfeld ( Togglebutton )
 |
|
|
|
|
Befehlsschaltfläche ( CommandButton )
 |
|
|
|
|
Rahmen ( Frame )
 |
|
|
|
|
Register ( TabStrip )
 |
|
|
|
|
Multiseiten ( MultiPage )
 |
|
|
|
|
Bildlaufleiste ( Scrollbar )
 |
|
|
|
|
Drehfeld ( SpinButton )
 |
|
|
|
|
Anzeige ( Image )
 |
|
|
|
|
RefEdit ( RefEdit )
 |
|
|
|
|
Durch Rechtsklick auf den Werkzeugkasten werden weitere Elemente
aufgelistet. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|