ComboBox Wert in Zelle übergeben
02.04.2015 16:39:59
puma_888
Hallo zusammen,
ich habe eine Combobox1 (aktiveX) in einem Tabellenblatt integriert mit der ich von einem anderen Tabellenblatt Werte auswählen und in einer Zelle wiedergeben möchte. Dies funktioniert auch soweit ganz gut, ich hab nur ein Problem. In der Zelle, in der der ausgewählte Wert der Combobox widergeben werden soll, wird aber immer der Wert der zuvor ausgewählt wurde angezeigt, also nie der aktuelle Wert. Woran kann das liegen oder wie müsste ich meinen Code erweitern, danke :).
Private Sub Worksheet_Activate()
With Worksheets("Tabelle1")
ComboBox1.List = .Range(.Cells(5, 3), .Cells(.Rows.Count, 11).End(xlUp)).Value
End With
Tabelle2.Cells(6, 2).Value = ComboBox1.Value
End Sub
Gruß
Markus