Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Eintrag aus Listbox in Zelle

Betrifft: Eintrag aus Listbox in Zelle von: Thorsten
Geschrieben am: 17.11.2014 22:36:15

Hallo,

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

  

Betrifft: AW: Eintrag aus Listbox in Zelle von: Luschi
Geschrieben am: 18.11.2014 05:29:18

Hallo Thorsten

versuch es mal so:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
    ByVal X As Single, ByVal Y As Single)
    Dim s As String, v As Variant
    
    s = Me.ListBox1.Value
    v = Split(s, vbTab, -1, vbTextCompare)
    Sheets("Ersteller").Range("K6").Value = v(0)
    If UBound(v) > 0 Then
        Sheets("Ersteller").Range("N11").Value = v(1)
    End If
    
    Erase v

    Unload Me
End Sub



  

Betrifft: AW: Eintrag aus Listbox in Zelle von: Thorsten
Geschrieben am: 18.11.2014 18:39:32

Hallo Luschi,

hat super geklappt, so wollte ich es.

Vielen Dank
Gruß Thorsten


 

Beiträge aus den Excel-Beispielen zum Thema "Eintrag aus Listbox in Zelle"