Hallo zusammen,
ich habe einen Userform mit einer Listbox, mit dem ich ausgewählte Spalten ein-/ausblenden kann. Ich befülle meine Listbox mit den Spaltenüberschriften aus Zeile 1:
Private Sub UserForm_Activate()
Dim WkSh As Worksheet
Dim iSpalte As Integer
Dim iLeSpa As Integer
iLeSpa = Cells(1, Columns.Count).End(xlToLeft).Column 'letzte beschriebene Spalte in Zeile 1 ermitteln
Application.ScreenUpdating = True
Set WkSh = ThisWorkbook.Worksheets(1)
With ListBox1
.Clear
For iSpalte = 1 To iLeSpa
If Not IsEmpty(WkSh.Cells(1, iSpalte).Value) Then
.AddItem Cells(1, iSpalte).Value
End If
Next iSpalte
End With
Das klappt soweit. Nun würde ich gerne die gefüllte ListBox nach bestimmten Werten durchsuchen und diese beim laden des Userforms direkt selektieren.
Wie stell ich das an?
Ich dank euch sehr für eure Hilfe!