Einführung in Userforms

MsgBox und InputBox eignen sich für einfache Ja/Nein-Fragen und einzeilige Antworten, aber das Hinzufügen eines Kunden erfordert tatsächlich mehrere Felder gleichzeitig — einen Firmennamen, einen Ansprechpartner, eine Stadt, einen Status. Genau dafür ist ein UserForm gedacht: ein kleines, benutzerdefiniertes Fenster mit eigenen Beschriftungen, Textfeldern, Dropdowns und Schaltflächen, das im VBE erstellt und vollständig durch Ihren Code gesteuert wird.

Erstellen eines Formulars

Klicken Sie im VBE mit der rechten Maustaste auf Ihr Projekt im Projekt-Explorer und wählen Sie Einfügen → UserForm. Eine leere Entwurfsfläche erscheint, zusammen mit einer schwebenden Toolbox mit Steuerelementen, die Sie darauf ziehen können.

Labels, TextBoxes, ComboBoxes und Buttons

Jedes Steuerelement, das Sie auf das Formular ziehen, erhält einen Standardnamen wie TextBox1 oder CommandButton1 — funktional, aber bedeutungslos, sobald ein Formular sechs oder sieben Steuerelemente enthält. Die wichtigste Gewohnheit in diesem Abschnitt ist im Eigenschaftenfenster sichtbar: Benennen Sie jedes Steuerelement sofort nach dem Hinzufügen um, und zwar mit einem kurzen Präfix, das den Typ kennzeichnet (txt für TextBox, cbo für ComboBox, cmd für CommandButton, opt für OptionButton, chk für CheckBox, lst für ListBox), gefolgt von einem beschreibenden Namen. txtCompanyName ist im Code auch nach drei Wochen eindeutig lesbar; TextBox1 hingegen nicht.

Labels sind einfache, nicht-interaktive Textbeschriftungen ("Company Name:") — sie sind für den Benutzer sichtbar, können aber weder beschrieben noch angeklickt werden. TextBoxes dienen zur Eingabe von Freitext. ComboBoxes bieten eine Dropdown-Liste mit Auswahlmöglichkeiten, was genau der Zweck von cboCity und cboStatus ist — die Einschränkung von City und Status auf eine bekannte Liste, anstatt dem Benutzer zu erlauben, "chicago", "Chicago,IL" und "CHI" für denselben Eintrag in verschiedenen Datensätzen frei einzugeben.

Code hinter dem Formular schreiben

Doppelklicken Sie auf ein beliebiges Steuerelement auf der Entwurfsoberfläche, um direkt zu dessen Code zu gelangen – VBA erstellt automatisch eine Ereignisprozedur mit dem Namen ControlName_EventName, und Code, der darin geschrieben wird, wird immer dann ausgeführt, wenn genau dieses Ereignis für genau dieses Steuerelement eintritt. Das Standardereignis eines Buttons ist Click:

Private Sub UserForm_Initialize()
    ' runs once, automatically, when the form is first shown
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"
 
    cboStatus.AddItem "Active"
    cboStatus.AddItem "Inactive"
    cboStatus.AddItem "Prospect"
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
End Sub

UserForm_Initialize ist eine spezielle Ereignisprozedur, die automatisch ausgelöst wird, sobald das Formular geladen wird – noch bevor der Benutzer etwas sieht. Daher ist dies der richtige Ort, um ComboBoxes mit .AddItem zu befüllen, anstatt die Auswahlmöglichkeiten manuell im Eigenschaftenfenster einzutragen, insbesondere wenn sich diese Auswahlmöglichkeiten ändern könnten oder aus einem Arbeitsblatt stammen. Unload Me innerhalb von cmdCancel_Click schließt das Formular vollständig; Me bezieht sich immer auf das Formular, in dem der Code gerade ausgeführt wird, sodass diese Zeile unverändert funktioniert, egal wie Sie das Formular später umbenennen.

Durchgearbeitetes Beispiel: Einen neuen Kunden speichern

Dies ist die Prozedur hinter dem Speichern-Button – sie schreibt tatsächlich eine neue Zeile in tblCustomers:

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
 
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add
 
    newRow.Range(1, 1).Value = "C" & Format(tbl.ListRows.Count + 1, "000")
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = cboStatus.Value
 
    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Aufgabe

1. Einfügen eines neuen UserForms, Benennung als frmAddCustomer und Hinzufügen von drei TextBoxen (txtCompanyName, txtContact, txtEmail) sowie zwei ComboBoxen (cboCity, cboStatus), jeweils mit passendem Label.
2. Hinzufügen von zwei CommandButtons, cmdSave und cmdCancel, und exaktes Schreiben der Prozeduren UserForm_Initialize und cmdCancel_Click wie gezeigt.
3. Schreiben von cmdSave_Click wie gezeigt und Hinzufügen eines temporären Buttons an anderer Stelle in der Arbeitsmappe mit dem Code frmAddCustomer.Show, um das Öffnen des Formulars zu testen.
4. Ausfüllen des Formulars für einen fiktiven sechsten Kunden und Klick auf Save — Überprüfung, ob eine neue Zeile in tblCustomers mit den eingegebenen Werten erscheint.