bin am verzweifeln.... habe mit meinen schlechten VBA-Kenntnissen und ein wenig Rumstöbern im forum ein, wie ich dachte, geniales Makro verfasst, aber der letzte Schritt funzt net ;-(
Kann mir wer helfen?
Also:
Habe Box erzeugt und mit folgenden Makro mit meinen Tabellenblättern gefüllt:
Sub Füllen()
With Sheets("Tabelle1").ComboBox1
.AddItem "Tabelle1"
.AddItem "Tabelle2"
.AddItem "Tabelle3"
.ListIndex = 0
End With
End Sub
Bei Auswahl eines in der Box angezeigten Blattes, soll eine msgBox aufgehen, in der das Blatt nochmal gezeigt wird. (Bis hierhin funzts) Bei Bestätigung dieser msgBox soll dann das entsprechende sheet ausgewählt werden, wird aber net.
Private Sub ComboBox1_Change()
MsgBox ComboBox1
i = ComboBox1.ListIndex
Sheets(i).Select
End Sub
Warum??? Bitte um Hilfe, Danke