Arbeiten mit Formularsteuerelementen

1. Ersetzen von cboStatus durch einen Rahmen mit Optionsfeldern

• Löschen Sie zuerst cboStatus und dessen Beschriftung aus dem Formular — Sie ersetzen es, nicht zusätzlich einfügen.
• Ziehen Sie ein Frame-Steuerelement auf das Formular und platzieren Sie alle drei Optionsfelder innerhalb des Rahmens — diese Gruppierung sorgt dafür, dass sie sich gegenseitig ausschließen.
• Benennen Sie jedes Optionsfeld einzeln im Eigenschaftenfenster um; der Rahmen selbst kann eine einfache Beschriftung wie "Status" behalten und benötigt keinen codefreundlichen Namen, sofern Sie ihn nicht direkt referenzieren möchten.
• Um die Auswahl auszulesen, prüfen Sie den .Value jedes Optionsfeldes einzeln mit If...ElseIf — es gibt keine Eigenschaft, die direkt angibt, "welches in der Gruppe ausgewählt ist".
• Da cboStatus.Value nicht mehr existiert, benötigt cmdSave_Click stattdessen eine status-Variable, die aus den Optionsfeldern gebildet und anstelle dessen in newRow geschrieben wird.

2. Hinzufügen von zwei unabhängigen Kontrollkästchen

• Diese befinden sich direkt auf dem Formular (nicht im Rahmen) — Kontrollkästchen außerhalb eines gemeinsamen Containers beeinflussen sich nie gegenseitig, unabhängig von der Gruppierung.
• Um "beim Testen zu bestätigen", aktivieren Sie einfach das eine, dann das andere, und beobachten Sie, dass keines das andere deaktiviert.

3. Hinzufügen und Validieren einer ListBox

• Befüllen Sie sie auf die gleiche Weise wie cboCity — wiederholte .AddItem-Aufrufe in UserForm_Initialize.
• ListIndex = -1 bedeutet es wurde noch nichts ausgewählt — genau dieser Zustand ist vor dem Speichern zu prüfen.
• Diese Prüfung gehört in denselben Validierungsblock wie die anderen Pflichtfeldprüfungen und wird an denselben errors-String angehängt.

4. MultiPage-Herausforderung

• Ziehen Sie ein MultiPage-Steuerelement auf das Formular — es enthält standardmäßig zwei Seiten, was genau benötigt wird.
• Benennen Sie jede Seite über Rechtsklick → Seitenreihenfolge oder durch Auswahl des Seiten-Tabs und Bearbeitung des Feldes "Caption" im Eigenschaftenfenster (Caption steuert den sichtbaren Tab-Text; es gibt auch ein separates (Name)-Feld, falls Sie eine Seite im Code referenzieren möchten).
• Um vorhandene Steuerelemente auf eine Seite zu verschieben, ziehen Sie sie im Entwurfsmodus physisch auf den sichtbaren Bereich der Seite — Code-Referenzen ändern sich nicht, da der Name des Steuerelements unabhängig von der Seite bleibt.

Private Sub UserForm_Initialize()
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"

    lstCities.AddItem "Chicago"
    lstCities.AddItem "Boston"
    lstCities.AddItem "Austin"
    lstCities.AddItem "Seattle"
    lstCities.AddItem "Denver"
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
    Dim errors As String
    Dim status As String

    ' --- Reset field colors ---
    txtCompanyName.BackColor = vbWhite
    txtContact.BackColor = vbWhite
    txtEmail.BackColor = vbWhite

    ' --- Required field checks ---
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
        txtCompanyName.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtContact.Value) = "" Then
        errors = errors & "- Contact is required" & vbNewLine
        txtContact.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtEmail.Value) = "" Then
        errors = errors & "- Email is required" & vbNewLine
        txtEmail.BackColor = RGB(255, 199, 206)
    End If

    ' --- Status via OptionButtons ---
    If optActive.Value = True Then
        status = "Active"
    ElseIf optInactive.Value = True Then
        status = "Inactive"
    ElseIf optProspect.Value = True Then
        status = "Prospect"
    Else
        errors = errors & "- Please select a Status" & vbNewLine
    End If

    ' --- ListBox check ---
    If lstCities.ListIndex = -1 Then
        errors = errors & "- Please select a city from the list" & vbNewLine
    End If

    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, vbExclamation
        Exit Sub
    End If

    ' --- All checks passed — safe to save now ---
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "C0" & (tbl.ListRows.Count + 100)
    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 = status

    If chkWelcomeEmail.Value = True Then
        MsgBox "A welcome email would be sent to " & txtEmail.Value & "."
    End If

    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Testhinweise:

• Punkt 2 (Kontrollkästchen) hat keine eigene Validierung — klicken Sie einfach chkWelcomeEmail und chkNewsletter unabhängig voneinander an und bestätigen Sie, dass jedes unabhängig umschaltet.
• Punkt 4 (MultiPage) ist nur eine Layoutänderung — es sind keine Codeänderungen erforderlich, da jedes Steuerelement seinen Namen behält, unabhängig davon, auf welcher Seite es platziert ist.
• Beachten Sie, dass cboCity.Value weiterhin für das eigentliche Speichern verwendet wird (newRow.Range(1, 5)), während lstCities ausschließlich als separates, unabhängig validiertes Steuerelement gemäß der Aufgabe existiert — die beiden sind nicht miteinander verbunden, es sei denn, Sie erweitern dies selbst.