Private Sub UserForm_Initialize()
SendKeys "{F4}"
Me.ComboBox1.RowSource = "Liste"
End Sub
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1
Unload Me
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 And Target.Count = 1 Then
UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm1.Left = 150
UserForm1.Show
End If
Cancel = True
End Sub