Combobox mir Daten befüllen
27.03.2015 14:14:52
puma_888
ich hab auf meinem Tabellenblatt ein Kombinationsfeld (aktive x Steuerelement) eingefügt und möchte nun dass wenn ich auf den dropbutton klicke, dass ich zwischen verschiedenen Werte eines anderen Tabellenblattes(Kettenzüge) auswählen kann. Die Werte in dem anderen Tabellenblatt befinden sich alle in der selben Spalte und beginnen mit B7, es soll jedoch auch möglich sein weitere Daten hinzuzufügen, die dann auch im Kombifeld ausgewählt werden können. Den Code den ich momentan verwende lautet:
Private Sub ComboBox1_DropButtonClick()
Dim strRowSource As String
With Worksheets("Kettenzüge")
strRowSource = "B7:B" & CStr(.Cells(.Rows.Count, 2).End(xlUp).Row)
End With
ComboBox1 = strRowSource
End Sub
leider funktioniert es nicht, sondern es wird mir im kombifeld von anfangan B7:B15 angezeigt, kann mir jemand weiter helfen :)?
Gruß
Markus
Anzeige