Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: hziemer am Dezember 10, 2015, 11:34:38 Vormittag

Titel: Office 2010: Office 2010: Selektierter Eintrag aus Kombobox als tartwert in Listbox übernehmen
Beitrag von: hziemer am Dezember 10, 2015, 11:34:38 Vormittag
Hallo liebe Forenmitglieder

Ich sitze mal wieder an meinem Endlosprojekt und versuche folgendes zu lösen:

In einer Userform selektiere ich mittels einer ComboBox einen Artikel. Diese Lste ist ohne doppelte Artikel.
--> Das funktioniert

Nun soll nachdem der Artikel selektiert wurde, alle Zeilen dieses Artikels in einem Listfeld mehrspaltig angezeigt werden. Diese kommen von einem anderen Tabellenblatt. Wie setzte ich genau bei diesem Artikel auf und zeige genau diese Zeilen?
--> Hier habe ich Probleme beim befüllen

Spaltenüberschriften und Breite der Spalten der Liste
--> Das funktioniert

Wer kann mir dabei helfen? Ein Beispiel genügt.

Danke für eure Mühe

Liebe Grüße aus dem sonnigen Schwabenland
hziemer
Titel: Antw: Office 2010: Office 2010: Selektierter Eintrag aus Kombobox als tartwert in Listbox übern
Beitrag von: maninweb am Dezember 10, 2015, 14:03:08 Nachmittag
Hallo,

anbei ein Rahmencode. Tabelle in Schleife durchlaufen (im Beispiel Bereich ab Zelle A1), Artikel vergleichen
und dann der ListBox hinzufügen. Erste Spalte kannst Du in der ListBox als Index verwenden, zum späteren
Wiederfinden der Zeile.
Code: Visual Basic
  1.   Dim n As Long
  2.   Dim k As String
  3.  
  4.   ListBox1.ColumnCount = 5
  5.  
  6.   With ThisWorkbook.Worksheets("Quelltabelle")
  7.  
  8.     For n = 1 To 100
  9.      
  10.       k = .Cells(n, 1).Value
  11.      
  12.       If Not k <> Combobox1.List(Combobox1.ListIndex, 0) Then
  13.        
  14.         ListBox1.AddItem
  15.        
  16.         ListBox1.List(ListBox1.ListCount - 1, 0) = CStr(n)
  17.         ListBox1.List(ListBox1.ListCount - 1, 1) = CStr(.Cells(n, 2).Value)
  18.         ListBox1.List(ListBox1.ListCount - 1, 2) = CStr(.Cells(n, 3).Value)
  19.         ListBox1.List(ListBox1.ListCount - 1, 3) = CStr(.Cells(n, 4).Value)
  20.         ListBox1.List(ListBox1.ListCount - 1, 4) = CStr(.Cells(n, 5).Value)
  21.        
  22.       End If
  23.      
  24.     Next
Gruß
Titel: Antw: Office 2010: Office 2010: Selektierter Eintrag aus Kombobox als tartwert in Listbox übe
Beitrag von: hziemer am Dezember 12, 2015, 18:28:20 Nachmittag
Hallo mainweb

Zuerst einmal Danke für die schnelle Hilfe.

So selektiere ich den Artikel
      If ComboBox1.Text = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) Then
                TextBox1 = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value))
                TextBox2 = Format(Tabelle12.Cells(lZeile, 3).Value, "0.000")
                TextBox4 = Format(Tabelle12.Cells(lZeile, 2).Value)
                TextBox5 = Format(Tabelle12.Cells(lZeile, 4).Value, "0.000")
                TextBox6 = Format(Tabelle14.Cells(lZeile, 2).Value)
                TextBox7 = Format(Tabelle14.Cells(lZeile, 4).Value, "0.000")
                TextBox8 = Format(Tabelle12.Cells(OZeile, 7).Value, "#,###")
                TextBox9 = Format(Tabelle14.Cells(OZeile, 7).Value, "#,###")
      End if
und befülle dann die 7 Maskenfelder mit den Artikeldaten.

Jetzt möchte ich mit dem Artikelnamen aus einer anderen Tabelle (Tabelle17 oder Name= 'Tipps'
die Listbox füllen.
Ich bekomme die Überschriften der Tabelle hin, aber mit deinem Rahmencode komme ich nicht weiter.
Die Verbindung mit dem Artikelnamen in Tabelle12 und allen Artikeln aus Tabelle17 zur Ausgabe in der Liste funktioniert nicht.

      If Not k <> Combobox1.List(Combobox1.ListIndex, 0) Then
      ListBox1.AddItem

Hier muss eine andere mir nicht erkennbare Logik rein.


Danke für Deine Mühe

Liebe Grüße aus dem dunklen Schwabenland
hziemer
Titel: Antw: Office 2010: Office 2010: Selektierter Eintrag aus Kombobox als tartwert in Listbox übern
Beitrag von: maninweb am Dezember 13, 2015, 10:07:41 Vormittag
Moin,

hättest Du die Möglichkeit eine Beispieldatei hochzuladen?

Gruß
Titel: Antw: Office 2010: Office 2010: Selektierter Eintrag aus Kombobox als tartwert in Listbox übern
Beitrag von: hziemer am Dezember 20, 2015, 09:20:51 Vormittag
Hallo mainweb

Ich habe das Projekt erst mal auf Eis gelegt.
Keine Zeit um daran weiter zu arbeiten.
Auf jeden Fall vielen Dank für Deine Antworten.

Frohe Weihnachten