Zwei voneinander abhängige Komboboxen
23.06.2015 16:28:51
NoseT
Dies hier ist mein erster Eintrag in diesem Forum und wird auf lange Sicht gesehen definitiv nicht der Letzte sein!
Zu meinem Problem:
Ich habe vor mir eine Datenbank, die etwas aufgehübscht werden soll. Sie besteht aus mehreren Blättern, die jeweils nach verschiedenen Bauteiltypen benannt sind. In den Blättern selbst befinden sich einzelne Bauteile mit ihren Serialnummern. Die Serialnummern befinden sich immer in Zeile 3, aber in unterschiedlichen Spalten (Fängt in Spalte "D" an und dann immer in der sechst Höheren). Für meine erste Frage reicht diese Information erstmal aus.
Ich habe jetzt auf einem extra Blatt ein Button erstellt, der eine Userform aufruft. Hier kann aus einer Combobox der Bauteilname aus den Blättern ausgewählt werden. Ich möchte jetzt erreichen, dass wenn ich ein Bauteil in der ersten Combobox ausgewählt habe, dieses Blatt aktiviert wird und in die zweite Combobox alle in diesem Blatt vorhandenen Serialnummern (Immer in Zeile 3 und ab Spalte "D" immer sechs hochzählen) geschrieben werden.
Mein Code der ersten Box sieht so aus:
'Code fürs Füllen der Auswahlboxen
Private Sub Userform_Initialize()
'Laufvariable zum Hochzählen
Dim i As Integer
'For-Schleife zum Hochzählen der Blätter
For i = 2 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next
'Erster Blattname soll beim Start des "Eingabefensters" im Feld erscheinen
ComboBox1.ListIndex = 0
End Sub
Meine Idee war folgende:
1. Nehme mir den ausgewählten Wert(Bzw. String) aus der ComboBox1
2. Springe in selbiges Sheet
3. Schreibe mir aus diesem Sheet aus Zeile 3 ab Spalte "D" jeden sechsten Wert in die Combobox
Hier finden sich bestimmt Einige, die deutlich mehr Erfahrung haben als ich und behilflich sein können:)