[Excel 2016] Gedankenhilfe gesucht

[SHack]

Daran liegt es nicht. j=0 und dann kommt direkt die Meldung... im Beispiel klappt es in meinem Projekt nicht... vertsehe ich nicht

---

Ok... hab es gefunden... Habe vom Listindex der Combobox immer noch einen abgezogen, was dann ja logischerweise -1 ergibt...

DANKE für deine Hilfe!

[snb]

Dann klappt dein Projekt nicht; und du verstehst den Code nicht.

Du hast einen Salami 'Stil'. Dann wird es noch lange dauern.
Wie weniger Infos, desto weniger Hilfe.

[SHack]

1. Ja, habe den Code erst nicht verstanden, jetzt läuft es ja.
2. Was ist ein Salami Stil?
3. Logisch, dass weniger Infos = weniger Hilfe bedeutet.

Aber da ja nun alles läuft wie gedacht: Danke nochmal an dieser Stelle.

[snb]

Verbesserungsvorschläge:

Code:

Private Sub ComboBox1_Change()
  For j = 0 To Multipage1.Pages.Count-1
    MultiPage1.Pages(j).Visible = InStr(Array(" 0 1 2 3 5 9 10 11 ", "01", "03")(ComboBox1.listindex), " " & j & " ")
  Next
End Sub