Combobox
29.06.2005 09:28:12
tinchen
Ich hoffe, einer von euch kann mir vielleicht helfen: Habe eine Combobox, zu der ich Items hinzugefügt habe, die die Namen von den Spalten in meinem Excel-Sheet sind:
With Sheet6.ComboBox
.Clear
.AddItem ("Alle")
.AddItem ("xy")
'usw.
End With
Ich möchte nun bei Auswahl in der Combobox nur noch die Spalte anzeigen lassen die ausgewählte wurde. Habe dazu folgenden Code:
Private Sub ComboBox_Change()
If LCase(ComboBox.Text) = "Alle" Then
Columns("C:T").Select
Selection.EntireColumn.Hidden = False
End If
If LCase(ComboBox.Text) = "xy" Then
Columns("C:T").Select
Selection.EntireColumn.Hidden = True
Columns("C").Select
Selection.EntireColumn.Hidden = False
End If
'usw.
End Sub
Leider passiert aber bei Auswahl in der Combobox nichts. Vielen Dank schon mal im Voraus für eure Hilfe!
Bis denne tinchen