AW: Kombinationsfeld / Dropdown füllen
20.05.2016 13:12:07
ChrisL
Hi Marco
Wie inzwischen schon mehrfach erwähnt, musst du ein ActiveX-Steuerelement verwenden
https://www.herber.de/bbs/user/105690.xlsm
' Diese Arbeitsmappe
Private Sub Workbook_Open()
Call CB1fuellen
End Sub
' Tabelle1
Private Sub ComboBox1_Change()
Call CB2fuellen
End Sub
' Standardmodul
Public zeile As Integer
Public bFuellen As Boolean
Sub Standortverwaltung()
UserForm1.Show
End Sub
Sub CB1fuellen()
Dim iZeile As Long
With Worksheets("Database")
bFuellen = True
Worksheets("Dashboard").ComboBox1.Clear
For iZeile = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(.Range("A5:A" & iZeile), .Cells(iZeile, 1)) = 1 Then _
Worksheets("Dashboard").ComboBox1.AddItem .Cells(iZeile, 1)
Next iZeile
bFuellen = False
Worksheets("Dashboard").ComboBox1.ListIndex = 0
End With
End Sub
Sub CB2fuellen()
Dim iZeile As Long
With Worksheets("Database")
If bFuellen Then Exit Sub
Worksheets("Dashboard").ComboBox2.Clear
If Worksheets("Dashboard").ComboBox1 = "" Then Exit Sub
For iZeile = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(iZeile, 1) = Worksheets("Dashboard").ComboBox1 Then _
Worksheets("Dashboard").ComboBox2.AddItem .Cells(iZeile, 2)
Next iZeile
Worksheets("Dashboard").ComboBox2.ListIndex = 0
End With
End Sub
Wenn sich die Database ändert, musst du CB1fuellen neu aufrufen.
cu
Chris