Eintrag aus Listbox in Zelle
17.11.2014 22:36:15
Thorsten
ich habe eine Listbox wo zB. Hallo11 drin steht, nach anklicken soll Hallo11 in Zelle K6 geschrieben werden. Das klappt ja auch super.
Nun habe ich den Eintrag in der Listbox Hallo test drin stehen, Hallo soll in Zelle
K6 und test soll in Zelle N11 geschrieben werden.
Hat jemand vieleicht eine leichte Lösung ohne den beigefügten Code großartig zu ändern, da _
schon sehr viele Einträge in der Listbox vorhanden sind.
Vielen Dank schon mal
Thorsten
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Sheets("Ersteller").Range("K6").Value = ListBox1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
Material.ListBox1.Font.Size = 20
With ListBox1
.AddItem "Hallo11"
.AddItem "Hallo" & vbTab & "test"
End With
End Sub
Anzeige