Listbox anhand einer ID Füllen

Hallo liebe Excelprofis,
ich habe folgende Ausgangssituation. Ich habe eine Tabelle "Stammdaten" und eine Tabelle "Item". Beide Tabellen haben eine gemeinsame ID (Reklamtionsnr.) und mehrere Spalte, diese allerdings unterschiedlich.
Bei den Stammdaten kommt die ID-Nr. nur einmal vor. Bei der Tabelle Item kann die ID öfter vorkommen.
In den Stammdaten stehen die allgemeinen Firmendaten (ID; Name, Bearbeiter, usw.) In der Tabelle Item werden die zu reklamierenden Teile aufgenommen (ID; Los, Breite, Länge usw.)
Ich habe eine Userform (UF_StammItem) erstellt, in dem die Stammdaten angezeigt werden. Jetzt möchte ich, das auch verschiedene Werte aus der Tabelle "Item" in einer Listbox (Listbox2) zu den zugehörigen Stammdaten angezeigt werden.
Die beigefügte Datei ist nur ein Entwurf und noch lange nicht fertig. Die verwendeten Markos habe ich mir im Netz zusammengesucht, da ich leider noch nicht in der Lage bin, eigene zu schreiben :-(
https://www.herber.de/bbs/user/155704.xlsm
Kann mir jemand helfen, die Listbox entsprechend zu füllen?
Vielen Dank im Voraus für eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nicole!
Da hast du noch ein feines Stück Arbeit vor dir...
Füge in der UF_StammItem dem folgende Code ein.
Dieser hier füllt die erste Listbox mit allen vorhandenen Aufträgen


Private Sub UserForm_Initialize()
Dim cl As Range
With ListBox1
For Each cl In Sheets("Stammdaten").Range("A2:A999").SpecialCells(xlCellTypeConstants)
.AddItem cl
Next cl
End With
End Sub

Bei Auswahl eines Auftrages wird die Listbox2 mit allen verfügbaren Positionen gefüllt


Private Sub ListBox1_Click()
Dim cl As Range
With ListBox2
.Clear
For Each cl In Sheets("Items").Range("A2:A999").SpecialCells(xlCellTypeConstants)
If CStr(cl) = ListBox1.Value Then .AddItem cl.Offset(0, 1)
Next cl
End With
End Sub

Viel Erfolg noch!
Gruß, MCO

Private Sub ListBox1_Click() Dim cl As Range Dim x As Long, j As Long With ListBox2 .Clear For Each cl In Sheets("Items").Range("A2:A999").SpecialCells(xlCellTypeConstants) If CStr(cl) = ListBox1.Value Then .AddItem x = .ListCount For j = 0 To 9 ' spaltenzahl musst du anpassen! .List(x - 1, j) = Sheets("Items").Cells(cl.Row, j + 1) Next j End If Next cl End With End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox anhand einer ID Füllen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread