Aktive Zelle Multilistbox öffnen, Daten übern.
20.05.2019 18:54:47
Mike
ich möchte aus einer Multilistbox Namen auswählen und in die aktive Zelle übernehmen.
Die Multilistbox soll beim klicken auf die Zelle öffnen. Dann die Namen auswählen und alle Namen in die aktive Zelle eintragen.
Wie bekomme ich das hin?
Über einen Button bekomme ich die Namen aber zur Zeit nur in die Zelle, die ich in Code eingetragen habe.
Private Sub CommandButton1_Click()'Taste auf dem Tabellenblatt Next Steps
UserForm1.Show 'Aufruf von der Multilistbox
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Übertragen_Click() 'Button in UserForm
myVar = ""
For x = 0 To Me.Namensliste.ListCount - 1 'Liste der Namen in einer anderen Tabelle
If Me.Namensliste.Selected(x) Then
If myVar = "" Then
myVar = Me.Namensliste.List(x, 0)
Else
myVar = myVar & "," & Me.Namensliste.List(x, 0)
End If
End If
Next x
ThisWorkbook.Sheets("Next Steps").Range("C8") = myVar 'hier werden die Namen in Zelle C8 vom _
Tabellenblatt Next Steps geschrieben
End Sub
Private Sub UserForm_Click()
Me.Hide
End Sub
Anzeige