VBA-Beispiel 135
mail schreiben
mail schreiben

Datenquelle einer ComboBox festlegen

In diesem Beispiel wird die Datenquelle einer ComboBox per VBA festgelegt. Die Datei enthält zwei dynamische Bereichsnamen (benannte Zellbereiche) welche die Datenbasis bilden. Mit einem Button kann die RowSource-Eigenschaft der ComboBox verändert werden.
Private Sub UserForm_Initialize()
  Call holDaten
End Sub

Private Sub cmbMW_Click()
  Call holDaten
End Sub

Private Sub cmbCancel_Click()
  Unload Me
End Sub

Private Function holDaten()

On Error GoTo Fehler
  With Me
    .cmbMW.Caption = IIf(Me.cmbMW.Caption = "Jungs", "Mädels", "Jungs")

    With .ComboBox1
      .RowSource = IIf(Me.cmbMW.Caption = "Jungs", _
                        Range("rngWVor").Address(External:=True), _
                        Range("rngMVor").Address(External:=True))
      .ListIndex = 0
    End With

    .fraVornamen.Caption = .ComboBox1.ListCount & _
              IIf(Me.cmbMW.Caption = "Jungs", " weibliche", " männliche") & " Vornamen"
  End With
Exit Function

Fehler:
  MsgBox "Nr.: " & Err.Number & vbNewLine & _
         "Beschreibung: " & Err.Description, _
         vbCritical, "Fehler!"
End Function

Download:   vba135.zip