ich komme einfach nicht weiter oder sehe den Wald vor lauter Bäumen nicht.
Ich habe auf einer UserForm drei voneinander abhängige ComboBoxen, die nach Auswahl aller 3 Boxen einen Wert ausgeben sollen.
Dieser ist in der Tabelle "Baualtersklassen OPAK" in der Spalte D (ab Zeile 2) hinterlegt und soll in der UserForm2 in der TextBox1 angezeigt werden. Teileweise sind keine Werte vorhanden, sodass die TextBox leer bleiben und eine Meldung erscheinen sollte.
Wie kann ich das Ergebnis meiner Eingrenzung (also den Inhalt der Spalte D) anzeigen lassen?
Mein Code sieht bisher so aus (den Ansatz habe ich hier im Forum gefunden)
Option Explicit
Private Sub cbb1_Change()
Dim hshB As Object
Dim i As Long
Set hshB = CreateObject("Scripting.Dictionary")
Me.cbb2.Clear
Me.cbb3.Clear
With ThisWorkbook.Sheets("Baualtersklassen OPAK")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = Me.cbb1 Then
hshB(.Cells(i, 2).Text) = 0
End If
Next
Me.cbb2.List = hshB.Keys
End With
Set hshB = Nothing
End Sub
Private Sub cbb2_Change()
Dim hshC As Object
Dim i As Long
Set hshC = CreateObject("Scripting.Dictionary")
Me.cbb3.Clear
With ThisWorkbook.Sheets("Baualtersklassen OPAK")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 2) = Me.cbb2 Then
hshC(.Cells(i, 3).Text) = 0
End If
Next
Me.cbb3.List = hshC.Keys
End With
Set hshC = Nothing
End Sub
Private Sub UserForm_Initialize()
Dim hshA As Object
Dim i As Long
Set hshA = CreateObject("Scripting.Dictionary")
With ThisWorkbook.Sheets("Baualtersklassen OPAK")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
hshA(.Cells(i, 1).Text) = 0
Next
Me.cbb1.List = hshA.Keys
End With
Set hshA = Nothing
End Sub
Ich hoffe, ihr könnt mir helfen.
Viele Grüße
Steffi