Hallo, ich hab so die ComboBox belegt:
Private Sub ComboBox1_Click()
ComboBox1.RowSourceType = "Table/Query"
ComboBox1.RowSource = "Hilfstabelle!D1:D4"
End Sub
Private Sub ComboBox1_Change()
ComboBox1.RowSourceType = "Table/Query"
ComboBox1.RowSource = "Hilfstabelle!D1:D4"
End Sub
Private Sub CommandButton1_Click()
MsgBox "das klappt"
UserForm6.Hide
End Sub
Leider wird in der ComboBox aber kein Wert angezeigt, die bleibt einfach weiß.
Den CommandButton hab ich so als Test belegt, um zu gucken, ob das klappt, und da ist es wie in der message box.
Was mich wirklich sehr verwirrt, ist das ich für UserForm1 auch zwei ComboBoxen habe, die exakt so belegt sins (Spalte A anstatt D), und da klappt es problemlos. Bin wirklich ratlos :(
|