Danke und Gruß
Siehe Auch Anlage
https://www.herber.de/bbs/user/31046.doc
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 And Target.Row >= 8 Then UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Dim i As Integer
Dim strAuswahl As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
If strAuswahl = "" Then
strAuswahl = ListBox1.List(i)
Else
strAuswahl = strAuswahl & ";" & ListBox1.List(i)
End If
End If
Next i
ActiveCell = strAuswahl
Unload Me
End Sub