Spalten ausblenden
07.01.2005 08:18:37
Marco1005
ich brauche eure Hilfe als nicht Spezi in Sachen VBA. Ich habe ein Listfeld in einem UserForm und in diesem befinden sich 72 Einträge. Diese Einträge tragen die Namen von Spalten auf einem Tabellenblatt. Ich weiss zwar nicht ob das wichtig ist, aber die Einträge habe ich durch folgenden Code eingefügt:
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 12 To Sheets.Count
lst_Zeitrahmen1.AddItem Sheets(i).Name
Next i
End Sub
Es kann ja sein, dass ich irgendwie einen Bezug zwischen den Einträgen und den Spalten erstellen muss von denen ich nichts weiss. Oder ist das nicht von Bedeutung?
Ich möchte gerne erreichen, dass alle nicht markierten Einträge ausgeblendet werden. Mehrfachauswahl ist im Listfeld möglich.
Ich hoffe mir kann Jemand helfen.
Vielen Dank!
Gruß
Marco1005
Anzeige