2 Comboboxen in Abhängikeit von Spalten/Zeilen
15.01.2007 23:19:23
Spalten/Zeilen
Ich habe eine Userform in welcher ich die Werte der Spalte A in der Combobox 1 einlesen kann. Nun möchte ich - nachdem der Wert der Spalte A selektiert wurde - mit der Combobox2 Werte der Zeile 1 Spalte B - H auswählen können. Den nachstehenden Code habe ich gefunden. Leider weiss ich nun nicht, wie ich diesen umgestalten kann, dass die Combobox2 die Werte immer aus der ersten Zeile bezieht.
Private Sub ComboBox1_Change()
Dim arr As Variant
arr = Range("B" & ComboBox1.ListIndex + 1 & ":G" & ComboBox1.ListIndex + 1)
ComboBox2.Column = arr
End Sub
In einem weiteren Schritt möchte ich über die Checkbox1 - nachdem die Werte in Combobox1 und 2 selektiert wurden - einen Eintrag in die entsprechende Zelle (Schnittpunkt der beiden werte) generieren.
Kann mir jemand einen Tipp geben, wie ich das machen kann?
Gruss Andi
Anzeige