Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 11 And Target.Column = 5 Then 'Zelle E11
    UserForm1.ListBox1.AddItem "die überprüfung ergab keine fehler"
    UserForm1.ListBox1.AddItem "das Teil ist schwer beschädigt"
    UserForm1.ListBox1.AddItem "Das teil wurde zur analyse eingeschickt"
    UserForm1.ListBox1.AddItem "die untersuchung wurde eingestellt"
 
    UserForm1.Show vbModal
End If
End Sub

Private Sub CommandButton1_Click()
ActiveCell.FormulaR1C1 = ListBox1.List(ListBox1.ListIndex)
Unload Me
End Sub