Hallo
Ich habe eine Listbox, die aus einem Tabellenblatt gefüllt wird.
Ist es möglich, wenn ein bestimmter Text ausgewählt wird sich eine Userform öffnet?
Leider kenne ich mich mit der Programmierung nicht aus, sodass ich Euch hier um Hilfe bitten muss.
Hier der Code dazu:
With Sheets("Listbox1")
For lngI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lngI) Then
If rng1 Is Nothing Then
Set rng1 = .Cells(lngI + 1, 1)
Else
Set rng1 = Union(rng1, .Cells(lngI + 1, 1))
End If
End If
Next
End With
Danke schön für Eure Hilfe.