Hallo Leute,
habe ein Problem mit folgender Excel-Datei welche als Nachverfolgung zur Ersatzteilbestellung dienen soll. Über den Button "Bestellung aufnehmen" werden die Bestellungen eingepflegt und es wird automatisch eine fortlaufende Bestellnummer vergeben. Hier funktioniert soweit alles.
Wenn nun eine Lieferung bzw. Teillieferung der Artikel erfolgt, möchte ich diese über den Button "Lieferrung" ebenfalls festhalten. Und hier ergibt sich mein Problem: da es auch Teillieferungen gibt, möchte ich, wenn nötig, dem einzelnen Artikel die entsprechende Lieferscheinnummer und einen Kommentar hinzufügen. Hierzu wollte ich in einem Listenfeld die entsprechenden Artikelnummern zur ausgewählten Bestellnummer anzeigen lassen, allerdings gelingt mir dies nicht.
Zum besseren Verständnis und da ich in puncto Fehlerbeschreibung versage, hier die Datei:
https://www.herber.de/bbs/user/93156.xlsm
Gibt es eine Möglichkeit, ausgehend von der Bestellnummer die in Spalte A steht nach rechts zu springen in Spalte D und von dort ausgehend bis zur nächsten freien Zelle jeden Artikel über den AddItem Befehl dem Listenfeld hinzuzufügen? Ich benutze diesen Code um die Bestellnummern in die erste Comboboc hinzuzufügen:
Sheets("Bestellungen").Select
For Each Cell In Range("A2:A65537")
If Not Cell.Text = "" Then
cmb_BestNr.AddItem Cell.Text
End If
Lässt sich hier eine Range für den entsprechenden Bereich einbauen? Ich bin leider mit meiner Weisheit am Ende und auch Recherchen im Forum und dem erstlichen Internet haben mich nicht wirklich weiter gebracht. Für jede Hilfe wäre ich dankbar.
Grüße
Julia