ich habe eine ComboBox mit Werten befüllt.
Wie kann ich es erreichen, dass der vom Anwender angeklickte Wert in der Combobox stehen bleibt und nach Klick auf den OK-Button im UserForm in die Zelle B26 übertragen wird?
Mein Coding:
Sub ComboBoxLoadingBez()
'Befüllen der Combobox mit Inhalt aus Spalte O (=Bezeichnung)
Dim bez As Byte
For bez = 2 To Sheets(2).Cells(Rows.Count, 15).End(xlUp).Row
UserForm1.ComboBoxPos1Bez.AddItem Sheets(2).Cells(bez, 15).Value
Next bez
End Sub
Private Sub ComboBoxPos1Bez_DropButtonClick()
ComboBoxPos1Bez.Clear
Call ComboBoxLoadingBez
End Sub
Private Sub ComboBoxPos1Bez_Click()
Dim strBez As String
strBez = UserForm1.ComboBoxPos1Bez.ListIndex = UserForm1.ComboBoxPos1Bez.ListCount - 1 '?
End Sub
Private Sub OKButton1_Click()
'übertrage ausgewählte Bezeichnung in Sheet(1) Zelle B26
Sheets(1).Range("B26").Value = strBez '?
End Sub
Leider komme ich in den letzten beiden Subs nicht weiter. :((Gruß
Lukas