Excel-VBA: Abhängige Kombinationsfelder "Bereich"
26.08.2013 16:05:25
Mark
Ich habe folgendes Problem: Ich habe eine Eingabemaske in Excel erstellt, worin sich unter anderem voneinander Abhängige ComboBoxen befinden.
Ich habe den Code von diesem Tutorial ( http://www.j-hennekes.de/1298803.htm
)
genommen und verändert.
Bisher werden die ComboBoxen aus dem Tabellenblatt Zeilenweise gefüllt aber nun möchte ich dass die ComboBoxen sich aus einem bestimmten Bereich innerhalb dieser Zeile füllt..
Wie stelle ich das am Besten an? Habe schon viel probiert, aber mit meinem beschiedenen Kenntnissen komme ich einfach nicht weiter.
HIER MEIN BISHERIGER CODE (ComboBox69 und ComboBox210 sind voneinander abhängig):
Option Explicit
'Modulweite Variablen deklarieren
Const C_mstrDatenblatt As String = "Bauteile"
Const C_mstrZielblatt As String = "Backup"
Dim mobjDic As Object
Dim mlngLast As Long
Dim mlngZ As Long
Private Sub ComboBox69_Enter()
'Erste Combobox. Jedes Bauteil in Spalte A wird einmalig angezeigt
Set mobjDic = CreateObject("Scripting.Dictionary")
For mlngZ = 2 To mlngLast
mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ, 2).Value) = 0
'Zellen aus Tabellenblatt die man auswählen kann
Next
Me.ComboBox69.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
Private Sub ComboBox210_Enter()
'Zweite Combobox in Abhängigkeit von erster Combobox.
'Jeder passende Typ in Spalte B wird einmalig angezeigt.
Set mobjDic = CreateObject("Scripting.Dictionary")
With Worksheets(C_mstrDatenblatt)
'Tabellenblatt auswählen
For mlngZ = 2 To mlngLast
If .Cells(mlngZ, 2).Value = Me.ComboBox69.Value Then
'Wenn Auswahl getroffen wird dann,
mobjDic(.Cells(mlngZ, 3).Value) = 0
'Zellen aus Tabellenblatt die man auswählen kann
End If
Next
End With
Me.ComboBox210.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
Vielen Dank im Voraus
Mit freundlichen Grüßen