Automatisierungsfehler (VBA)

Phil, Montag, 30.09.2019, 07:32 (vor 23 Tagen)
bearbeitet von Martin Asal, Montag, 30.09.2019, 18:56

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")     -->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


Danke für die Hilfe schonmal

Gruss

Phil


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum