Hallo,

ich habe folgendes Problem: Ich möchte eine UserForm mit einer mehrlevel ComboBox erstellen, d.h. ich möchte erst eine Region auswählen, dann ein produkt und dann einen shop. Die Daten die ich dazu benötige habe ich in ein extra Tabellenblatt mit dem Namen "Hilfe" gespeichert. Bei folgendem Code kommt die im Thema beschriebene Fehlerbeschreibung.

Private Sub UserForm_Activate()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Hilfe")       [--> hier wird der Fehler angezeigt]

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

Schonmal vielen Dank für die Hilfe

Gruss

Phil