Microsoft Excel

Herbers Excel/VBA-Archiv

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

Listbox zu Listbox | Herbers Excel-Forum


Betrifft: Listbox zu Listbox von: Leitz Gerd
Geschrieben am: 08.02.2012 16:19:54

Hallo!

Ich möchte gerne einen Wert aus Listbox1 in Listbox2 übergeben.

Private Sub CommandButton1_Click()

    ListBox2.Value = ListBox1.Value
    
 End Sub
Das funktioiert aber nicht! Außerdem möchte ich mehrere Werte nacheinander übergeben können.
Finde dazu leider im Archiv nichts und bitte Euch desshalb um Hilfe!

Gruß
Leitz Gerd.

  

Betrifft: ListBox2.AddItem ListBox1.Value von: Matthias L
Geschrieben am: 08.02.2012 16:25:59

Hallo

Private Sub ListBox1_Click()
ListBox2.AddItem ListBox1.Value
End Sub
Gruß Matthias


  

Betrifft: AW: ListBox2.AddItem ListBox1.Value von: Leitz Gerd
Geschrieben am: 08.02.2012 16:41:58

Hallo!

Dankeschön für die Hilfe. Funktioniert perfekt hab aber damit gleich das nächste Problem.

Wie kann ich aus einer Listbox mit mehrern Werten nur den makierten löschen?

Mit ListBox2.Clear werden alle gelöscht.


Gruß
Gerd


  

Betrifft: ListBox2.RemoveItem von: Matthias L
Geschrieben am: 08.02.2012 16:53:02

Hallo

entfernt bei Doppelklick in Listbox2 den Eintrag aus der Listbox2

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyLIDX
MyLIDX = ListBox2.ListIndex
If MyLIDX > -1 Then ListBox2.RemoveItem MyLIDX
End Sub



  

Betrifft: AW: ListBox2.RemoveItem von: Leitz Gerd
Geschrieben am: 08.02.2012 16:58:56

Herzlichen Dank!

wär ich nie drauf gekommen!


Dank und Gruß

Gerd


  

Betrifft: AW: ListBox2.RemoveItem von: Oberschlumpf
Geschrieben am: 08.02.2012 17:07:19

ahh Hi Matthias :-)

Da is ja der Befehl zum Entfernen von einzelnen LB-Einträgen.
Auch von mir Danke! :-)

Ciao
Thorsten


  

Betrifft: Bitte :o) kwT von: Matthias L
Geschrieben am: 08.02.2012 17:09:11




  

Betrifft: AW: ListBox2.AddItem ListBox1.Value von: Oberschlumpf
Geschrieben am: 08.02.2012 17:06:00

Hi

Ein direkter Befehl zum Löschen von Listboxeinträgen ist mir auch (noch) nicht bekannt, aber über den Umweg mit der Benutzung eines Arrays geht es:

Sub sbLBDel()

    Dim larstrLB() As String, liIdx As Integer, liIdx1 As Integer
    
        With Sheets(1) 'hier muss der Container der Listbox stehen
                For liIdx = 0 To .ListBox1.ListCount - 1
                    If liIdx <> .ListBox1.ListIndex Then
                        ReDim Preserve larstrLB(liIdx1)
                        larstrLB(liIdx1) = .ListBox1.List(liIdx)
                        liIdx1 = liIdx1 + 1
                    End If
                Next
            .ListBox1.Clear
                For liIdx = 0 To UBound(larstrLB)
                    .ListBox1.AddItem larstrLB(liIdx)
                Next
        End With
End Sub
Ach ja, der Code funzt nur, wenn die Listbox über die AddItem-Methode gefüllt ist. Bei Verwendung der ListFillRange-Eigenschaft kommt es zu einem Fehler.

Hilfts?

Ciao
Thorsten


  

Betrifft: AW: ListBox2.AddItem ListBox1.Value von: Leitz Gerd
Geschrieben am: 08.02.2012 17:37:22

Hallo!

Bei mir funktionierts jedenfalls nach der Methode von Matthias L.

Hab aber noch eine Frage wie kann ich eine Listbox sortieren alphabetisch?
Geht das?

Gruß
Gerd


  

Betrifft: AW: ListBox2.AddItem ListBox1.Value von: Oberschlumpf
Geschrieben am: 08.02.2012 17:42:12

Hi

Dazu musst du - meines Wissens

- den Inhalt der Listbox in eine leere Spalte in Excel schreiben
- die Sortierfunktion von Excel nutzen
- den alten Inhalt der Listbox löschen
- die sortierte Liste wieder in die Listbox zurück schreiben
- den Inhalt der Hilfsspalte zum Sortieren löschen

fertig

Das, so finde ich, ist die einfachste Möglichkeit, Listboxinhalte zu sortieren

Hilft die Idee?

Ciao
Thorsten


  

Betrifft: AW: ListBox2.AddItem ListBox1.Value von: Leitz Gerd
Geschrieben am: 08.02.2012 17:48:21

Hallo!

Dankeschön! Die Idee hilft! ABER!

Wie schreibe ich aber die Werte einzeln in eine Zelle? Wert1 = A1 / Wert2 = A2 usw.

Gruß
Gerd


  

Betrifft: hier ein Link von: Matthias L
Geschrieben am: 08.02.2012 18:05:31

Hallo

https://www.herber.de/forum/archiv/1104to1108/t1104680.htm#1104738

Gruß Matthias


  

Betrifft: AW: ListBox2.AddItem ListBox1.Value von: Oberschlumpf
Geschrieben am: 08.02.2012 18:07:09

Hi Gerd

Hier ein komplettes Bsp

https://www.herber.de/bbs/user/78804.xls

Hilfts?

Ciao
Thorsten


  

Betrifft: AW: Hallo Zusammen! von: Leitz Gerd
Geschrieben am: 09.02.2012 10:32:03

Hallo Zusammen!

Hatte ers heute Gelegenheit weiterzumachen!

Was soll ich sagen! es funktioniert!
Möchte mich sehr herzlich bedanken für die tolle Hilfe!

Gruß
Gerd


Beiträge aus den Excel-Beispielen zum Thema "Listbox zu Listbox"