ListBox Mehrspaltig mit Mehreren Sheets befüllen

[Steffl]

Hallo,

sorry, hatte ich nicht getestet

Code:

Private Sub CommandButton1_Click()
   Dim lngC As Long, lngA As Long
  
   For lngC = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(lngC) Then
         ListBox2.AddItem ListBox1.List(lngC, 0) '<-------Und Markiert diese Zeile
         ListBox2.List(lngA, 1) = ListBox1.List(lngC, 1)
         lngA = lngA + 1
      End If
   Next lngC
End Sub

[toto18]

Tausend Dank schon mal dafür, ich weiß wie zeit aufwendig das ist...  Ich hätte schon wieder Wochen dran verbracht..er funktioniert und Übernimmt schon mal den Artikel aus der ersten spalte, ist es noch möglich das er die ganze Zeile Samt aller Spalten Übernimmt ?

[Steffl]

Hallo,

..er funktioniert und Übernimmt schon mal den Artikel aus der ersten spalte, ist es noch möglich das er die ganze Zeile Samt aller Spalten Übernimmt ?

??? Mein bisheriger Code übernahm doch zwei Spalten. Jetzt aber werden die Einträge anhand der Spaltenanzahl der Listbox1 übernommen.

Code:

Private Sub CommandButton1_Click()
   Dim lngC As Long, lngA As Long, lngB As Long
  
   For lngC = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(lngC) Then
         ListBox2.AddItem ListBox1.List(lngC, 0) '<-------Und Markiert diese Zeile
         For lngB = 1 To ListBox1.ColumnCount - 1
            ListBox2.List(lngA, lngB) = ListBox1.List(lngC, lngB)
         Next lngB
         lngA = lngA + 1
      End If
   Next lngC
End Sub

[toto18]

Wie meinst du Das ? Nicht das wir an ein ander vorbei reden ..?

Also er übernimmt nur den wert aus der ersten spalte in die Listbox 2

[Steffl]

Hallo,

kann ich nicht nachvollziehen. Könntest Du deine Datei hier hochladen? WICHTIG-Arbeitsmappen-im-Forum-zur-Verfuegung-stellen

[toto18]

oh Okay, kein Thema die Datei ist im Anhang, aber bitte nicht zu verdutzt schauen da ist noch nüscht fertig...Wie gesagt bin noch grün hinter dem Ohr... Die Userform heißt Suche... Danke für deine Mühe

[Steffl]

Hallo,

Du mußt die ColumnCount-Eigenschaft deiner Listbox2 auf den passenden Wert festlegen. Bisher ist es 1 und daher siehst Du nur eine Spalte. Achte auch auf die Spaltenbezeichnungen beider Listboxen.

[toto18]

SO funktioniert es das er jetzt alle spalten in die Listbox2 einfügt. Aber er Fügt nur die erste Zeile mit allen Daten wenn ich ein weiteres Produkt hinzufüge. Zeigt er wieder nur den Artikel und den Rest nicht welchen wert müsste ich denn da Umstellen ? 

Private Sub CommandButton2_Click()
   Dim lngC As Long, lngA As Long, lngB As Long
    ListBox2.ColumnCount = 8
    ListBox2.ColumnWidths = "8cm;2cm;2cm;2cm;3cm;3cm;3cm;7cm"
   
   For lngC = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(lngC) Then
         ListBox2.AddItem ListBox1.List(lngC, 0)
         For lngB = 4 To ListBox1.ColumnCount - 1
            ListBox2.List(lngA, lngB) = ListBox1.List(lngC, lngB)
         Next lngB
         lngA = lngA + 1
      End If
   Next lngC
End Sub

[toto18]

Kann es sein das er automatisch wie er es sollte immer denn Niedrigsten Preis anzeigt und dafür die anderen werte der Produkte in der Listbox 2 dafür ausblendet?

[Steffl]

Hallo,

stelle mal die MultiSelect-Eigenschaft deiner ListBox1 auf fmMultiSelectMulti.