habe eine kleine Frage. Wie kann ich eine ComboBox mit Daten füllen, von 2 verschiedenen Tabellen. Sprich Combobox ist in A und Daten in B?
Danke für eure Bemühungen
Gruß Christian
Public Sub ComboBox_erstellen()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim lZeile As Long
Dim lComBox As Long
Set WkSh_Q = Worksheets("Tabelle3")
Set WkSh_Z = Worksheets("Tabelle1")
Worksheets("Tabelle1").Activate
With ActiveSheet.ComboBox1
.ColumnCount = 3
.ColumnWidths = "3,5 cm; 3,5 cm; 3,5 cm"
.ListRows = 12
.BackColor = RGB(204, 255, 204)
For lZeile = 2 To WkSh_Q.Range("A65536").End(xlUp).Row
If Not IsEmpty(WkSh_Q.Range("A" & lZeile).Value) Then
.AddItem ""
.List(lComBox, 0) = WkSh_Q.Range("A" & lZeile).Value
.List(lComBox, 1) = WkSh_Q.Range("B" & lZeile).Value
.List(lComBox, 2) = WkSh_Q.Range("C" & lZeile).Value
lComBox = lComBox + 1
End If
Next lZeile
End With
If ActiveSheet.ComboBox1.ListCount > 0 Then
ActiveSheet.ComboBox1.ListIndex = 0
End If
End Sub
Gruß Peter
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, 1)).Name = "Monate"
wks1.ComboBox1.ListFillRange = "=Monate"
End If
End Sub
Jedesmal, wenn du etwas hinzufügst, wird derBereichsname - hier Monate - für die Daten angepasst und die ComboBox im wks1 entsprechend gefüllt.