Hallo,
ich habe folgendes Problem: Ich möchte eine UserForm erstellen, mit einer mehrlevel ComboBox, d.h. ich möchte zu erst die Region auswählen, dann ein Produkt und dann einen Shop. Die zugehörigen Daten habe ich in einem extra Tabellenblatt, "Hilfe", gespeichert.
Bei folgendem Code wird der oben genannte Fehler gezeigt.:
Private Sub UserForm_Activate()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Hilfe")
Dim i As Integer
Me.ComboBox1.Clear
For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
If sh.Range("A" & i).Value = "Region" Then
Me.ComboBox1.AddItem sh.Range("B" & i)
End If
Next i
End Sub
Danke für die Hilfe schonmal
Gruss
Phil
|