Thema Datum  Von Nutzer Rating
Antwort
Rot 2 abhängige Comboboxen befüllen
02.11.2021 22:45:55 Bobby
NotSolved
02.11.2021 23:06:29 ralf_b
Solved
03.11.2021 13:19:13 Bobby
NotSolved
04.11.2021 08:49:31 Bobby
NotSolved
08.11.2021 21:56:04 Bobby
NotSolved
09.11.2021 06:59:17 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Bobby
Datum:
02.11.2021 22:45:55
Views:
105
Rating: Antwort:
  Ja
Thema:
2 abhängige Comboboxen befüllen

Hallo zusammen,

ich möchte in einer Userform zwei von einander abhängigen Comboboxen aus einer Tabelle füllen. Ich habe mir hierzu auch schon einen Code aus dem Netz zusammen gebastelt, der leider nicht wie gewünscht funktioniert.

Der Aufbau ist wie folgt: In der ersten Zeile stehen die Begriffe für die erste Combobox, in den darunter liegenden Spalte die jeweiligen davon abhängigen Einträge für die zweite Combobox:

Topic 1 Topic 2
Unterthema 1 Unterthema 1
Unterthema 2 Unterthema 2
   

 

Leider liefert folgender Code nur die erste Zelle, nicht alle zellen der ersten Spalte in der Combobox 1.

Private Sub UserForm_Initialize()

  With Worksheets("Tabelle1")
    Me.cmbGrund1QMB.List = .Range(.Cells(1, 1), .Cells(1, Columns.Count).End(xlToLeft)).Value
  End With
End Sub
Private Sub cmbGrund1QMB_Change()
  Dim lngColumn As Long
  
  cmbGrund2QMB.Clear
  
  If cmbGrund1QMB.ListIndex > -1 Then
    With Worksheets("Tabelle1")
      lngColumn = Application.Match(cmbGrund1QMB, .Rows(1), 0)
      cmbGrund2QMB.List = .Range(.Cells(2, lngColumn), .Cells(Rows.Count, lngColumn).End(xlUp)).Value
    End With
  End If
End Sub

Könnt Ihr mir bitte helfen?

 

LG Bobby


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot 2 abhängige Comboboxen befüllen
02.11.2021 22:45:55 Bobby
NotSolved
02.11.2021 23:06:29 ralf_b
Solved
03.11.2021 13:19:13 Bobby
NotSolved
04.11.2021 08:49:31 Bobby
NotSolved
08.11.2021 21:56:04 Bobby
NotSolved
09.11.2021 06:59:17 ralf_b
NotSolved