Userform Activate mit If Anweisung
Jeron
ich habe ein sicherliches sehr einfaches Problem, und zwar habe ich ein Userform, dass
mir in einem Tabellenblatt die Spalte 3 auf einen Wert überprüft. Wenn
es in Spalte 3 einen Wert gibt, dann kann ich in ComboBox 1 die Werte aus Spalte 1 auswählen.
Hier der Code:
Private Sub UserForm_Activate()
Dim LoI As Long
With Worksheets("Promotionbelegung")
For LoI = 8 To 56
If .Cells(LoI, 3) "" Then ComboBox1.AddItem .Cells(LoI, 1)
Next LoI
End With
End Sub
Das funktioniert auch super, nur möchte ich jetzt noch eine Bedingung hinzufügen
und zwar sollen die Werte in Abhängigkeit von einer weiteren ComboBox stehen..
Habe demnach einfach eine If Anweisung um den Code gestrickt, nur leider funktioniert das Laden der Werte aus Spalte 1 in die ComboBox1 nicht mehr, weiß jemnad von euch warum ? wenn ja, wie könnte man es denn dann anderes machen:
Hier mein Code der nicht mehr funktioniert:
Private Sub UserForm_Activate()
Dim LoI As Long
If ComboBox2.Value = "PUE/1" Then
With Worksheets("Promotionbelegung")
For LoI = 8 To 56
If .Cells(LoI, 3) "" Then ComboBox1.AddItem .Cells(LoI, 1)
Next LoI
End With
End If
End Sub
Über jeden Hinweis und Hilfe wäre ich sehr dankbar.
Viele Grüße,
Jeron
Anzeige