Makro für Combobox
thomas
Habe ein Problem mit untenstehendem Makro-Code (Quelle: Karl-Otto).
beim kompilieren gibt er mir schon bei der ersten Zeile an: Function oder Variable erwartet. Das Makro hat mit einer Listbox wunderbar funktioniert, nun wollte ich das Makro nur auf eine Combobox umhängen, das funktioniert aber nicht. Ich habe einfach Listbox_1 mit ComboBox1_Change erstetzt, was aber nicht funktioniert. Auch die Hilfe bringt mich nicht weiter. Vielleicht muss bei Combobox noch etwas zusätzlich angegeben werden. Wer kann mir helfen?
Besten Dank
Private Sub ComboBox1_Change()
'Damit je nach User-Wunsch eins bis sechs Szenarien angezeigt werden
'Zuerst wird werden immer alle Spalten geöffnet (hidden = false), dann werden je nach Wahl Spalten wieder geschlossen.
Worksheets("Erfolgssens.-Analyse BM").Columns("F:R").Hidden = False
If ComboBox1_Change.Value = 1 Then Worksheets("Erfolgssens.-Analyse BM").Columns("F:R").Hidden = True
If ComboBox1_Change.Value = 2 Then Worksheets("Erfolgssens.-Analyse BM").Columns("J:R").Hidden = True
If ComboBox1_Change.Value = 3 Then Worksheets("Erfolgssens.-Analyse BM").Columns("L:R").Hidden = True
If ComboBox1_Change.Value = 4 Then Worksheets("Erfolgssens.-Analyse BM").Columns("N:R").Hidden = True
If ComboBox1_Change.Value = 5 Then Worksheets("Erfolgssens.-Analyse BM").Columns("P:R").Hidden = True
If ComboBox1_Change.Value = 6 Then Worksheets("Erfolgssens.-Analyse BM").Columns("Q:R").Hidden = True
End Sub
Anzeige