Visual Basic Excelprogrammierung geschlossen

[Ditolay]

Hallo,
ich habe davon nicht viel Ahnung aber ich muss ein Programm schreiben und damit habe ich bereits angefangen.
Ich habe mehrere Tabellenblätter zu denen ich von der Startseite springen können muss und von z.B. Blatt 5 wieder zur Startseite.
Das habe ich mit worksheets().activate gemacht und das klappt auch. Das war aber auch schon wahrscheinlich das einfachste an dieser Sache.
Angefangen mit dem Startblatt, dann kommt ein nächstes mit Stammdaten die im Prinzip nicht geändert werden aber ergänzt werden können. (bestehend aus Artikelnummern). Dann ein weiteres Tabellenblatt Lieferadressen und zugehörigen Kundennummern. Nun kommt auf dem nächsten Tabellenblatt die Bestellung und dort ist mein Problem. Ich habe schon eine Weile im Netz dazui etwas gesucht aber nicht gefunden.
Ich habe da eine Userform und dort als Combobox die Lieferanten eingetragen.
Nun hat jeder Lieferant ein eigenes Sortiment und ich möchte wenn ich den Lieferanten xyz anwähle,das dann bei Artikelnummern nur noch die Artikel angezeigt werden die der Lieferant zur Auswahl bietet und nicht alle. Er bietet Artikel an die alle mit der Artikelnummer 1 anfangen.
Könnt ihr mir dazu bitte helfen. Ich meine nicht vorschreiben sondern einfach unterstützen.
Ich habe schon viele Sachen ausprobiert und ich habe wirklichkeine Ahnung von Programmieren.
Über eure Hilfe würde ich mich freuen.
Lg Ditolay

 

[Tattooed1980]

Hy

Wenn ich das richtig verstanden habe, willst du eine ComboBox in Abhängigkeit vom Lieferanten füllen.

Also wenn Lieferant = xyz dann in der ComboBox nur Artikelnummern die mit 1 anfangen
wenn Lieferant = abc dann in der ComboBox nur Artikelnummern die mit 2 anfangen, und so weiter.

Würde in etwa so aussehen (ohne deinen Code und Bezeichnungen zu kennen)

select Case Lieferant.Text 'Abfrage Text in der Lieferanten-Combobox
Case "xyz"
Liefernatennummer = 1
Case "abc"
Liefernatennummer = 2
end select

Artikelnummer.clear 'Combobox mit den Artikelnummern löschen

For i = 1 to 2000 ' oder to 10000 oder wie auch immer (Alle Artikel aller Lieferanten)
if Left(AlleArtikel(i),1) = Lieferantennummer then Artikelnummer.Add(AlleArtikel(i)) 'wenn das erste Zeichen mit der Lieferantennummer übereinstimmt diese Nummer in Artikelnummer-Combobx hinzufügen
Next i

Diesen Teil bei Änderung des Lieferanten aufrufen

Ich hoffe das hilt dir weiter.

MfG Tattooed1980

 

[Ditolay]

Juhu,
danke für deine Antwort. Bist du fit in VB? Könnte ich dich die nächsten Tage nochmal anschreiben um Hilfe zu bekommen`? Habe deins mal ausprobiert und muss ein bissle rumbasteln...habs noch nicht raus^^
Gerne auch per pn weil wir das eigentlich nicht veröffentlichen dürfen.
Wäre lieb von dir.
LG Ditolay
-------
So, ich habe nun versucht irgendwie durchzusehen, aber klappt leider nicht.
Ich muss die Combobox Artikelnummer in Abhängigkeit von der Combobx der Lieferanten füllen.
Also ich wähle per Combobox den Lieferanten aus und dann müssen in der Artikelcombo nur noch die Artikel des ausgewählten Lieferanten zu sehen sein.
Ansonsten sehe ich nämlich leider alle Artikel.
Ich habe die Lieferantencombo und Artikelcombo per Userform Initialize gefüllt. Ist das richtig?
LG Ditolay

 

[FeliX_22]

Wäre es nicht einfacher du würdest eine Access-Vorlage für die Artikel-, Lieferanten-, usw. verwaltung nehmen? Sofern dich niemand zwingt Excel zu benutzen...

Gruß

FeliX_22