zwei comboboxen
johann
wenn ich mir hin und wieder ein kleines Programm bastle, finde ich immer eine Unmenge prächtiger Beispiele im Archiv von der Hans Herber CD, auch das Nachstehende, habe ich auf diesem Weg konstruiert. Leider stehe ich jetzt an und weiß seit geraumer Zeit nicht weiter. Deshalb bitte ich euch um Hilfe.
In meiner Arbeitsmappe befinden sich vier Tabellen:
KategorieArtikel, GrundPreis, Gebinde und EndPreis.
In der Tabelle EndPreis habe ich zwei Comboboxen aus der Steuerelement-Toolbox erstellt.
Beim öffnen der Arbeitsmappe wird folgender Code ausgeführt und die Combobox1 mit den Überschriften, das sind die Kategorien, aus der Tabelle KategorieArtikel gefüllt.
Private Sub Workbook_Open()
Dim bereich As Worksheet
Dim element As ComboBox
Set bereich = Sheets("KategorieArtikel")
Set element = Sheets("EndPreis").ComboBox1
element.Clear
Dim i As Integer
For i = 2 To 7
With element
.AddItem bereich.Cells(1, i)
element.ListIndex = 0
End With
Next i
End Sub
An diesem Code stört mich, dass es mir nicht gelingt, die ganze erste Zeile, bis zum letzten Eintrag zu übergeben. Es sind zwar im Moment nur 7 Kategorien, aber angenehmer wäre es, ich könnte jederzeit eine neue dazuschreiben, ohne den Code zu ändern.
Das eigentliche Problem ist aber nun, dass wenn ich eine Kategorie in Combobox1 auswähle, die dazugehörigen Artikel aus dieser Spalte in Combobox2 gefüllt werden sollen.
Mit den bis jetzt gefundenen Codes im Archiv, komme ich nicht zum Ergebnis.
Hoffe nun durch euch, die notwendige Nachhilfe zu erhalten und bedanke mich schon mal im Voraus,
recht freundliche Grüsse,
johann uher