ich hatte vor einer Woche eine ähnliche Frage, die mir in einem etwas anderem Anwendungsfall wieder aufstößt... Bitte um Hilfe!!!
Also ich möchte in einer ComboBox Werte einer Spalte auslesen, die aus unterschiedlichen Sheets einer externen Tabelle stammen. In der Cbx3 befinden sich die Namen der Tabellen sheets. Das funktioniert!
In der Cbx2 soll nun immer die dritte Spalte des ausgewählten Sheets der Cbx3 angezeigt werden.
Es funktioniert so weit, dass immer die dritte Spalte des zuerst erscheinenden Sheets angezeigt wird.
code s.u.:
Super, wenn mir jemand endlich helfen könnte.
Gruß
Nils
Private Sub ComboBox3_Change()
Dim Projekt As String
Dim inSpalte As Integer
Dim vnt As Variant
Dim D As Object
Dim i As Integer
Projekt = ComboBox3
vnt = Workbooks("Lieferantensuche.xlsm").Sheets(Projekt).Range("C3:C230").Value
Set D = CreateObject("scripting.dictionary")
For i = 3 To UBound(vnt)
On Error Resume Next
If Len(vnt(3, i)) > 0 Then D(vnt(3, i)) = 0
On Error GoTo 0
Next
ComboBox2.List = D.keys
Set D = Nothing
For inSpalte = 3 To 230 Step 2 '