Listbox Multiselect (Markierte Einträge)
01.03.2008 14:16:00
Martin
ich möchte über eine Listbox auswählen können welche Spalten einer Excel-Tabelle sichtbar bzw. ausgeblendet sein sollen. Dazu habe ich die Eigenschaften der Listbox bei ListStyle auf "1-fmListStyleOption" und den Multiselect auf "fmMultiSelectMulti" gesetzt. Somit erhalte ich Checkboxen in meiner Listbox (bis hierhin geht auch alles) und eine Mehrfachmarkierung ist möglich.
Nun möchte ich aber, dass geprüft wird, welche Spalten bereits sichtbar bzw. ausgeblendet sind. Wie kann ich über mit einem Makro der Listbox sagen welche Einträge bereits ausgewählt sein sollen?
Mein Ansatz:
Private Sub UserForm_Activate()
For i = 1 To 40
ListBox1.AddItem Cells(1, i) 'Die Spaltenüberschriften in die Listbox eintragen
'If Cells(1, i).Columns.Hidden = False Then '(...und hier weiß ich nicht mehr weiter!)
Next i
End Sub
Für Ideen wäre ich sehr dankbar!
Martin