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
|