Multipage gezielt anwählen
Chinaski
habe hier bislang nur mitgelesen und immer wieder schnelle Lösungen gefunden. Dafür bei dieser Gelegenheit ein großes Dankeschön!
Um es vorab zu sagen: MultiPage1.Value = x funktioniert bei mir nicht. In den gängigen Foren habe ich keine funktionierende Alternative gefunden.
Ich arbeite nur sporadisch mit VBA und daher ist meine VBA-"Aussprache" ist etwas dreckig und von workarounds geprägt. Aber erstmal ist wichtig was hinten rauskommt.
Die Situation:
- ich habe eine UserForm mit einer Multipage.
- Auf Reiter 1 der Multipage ist eine ComboBox, bei der ich per Dropdown den Wert ändern kann.
- Dadurch werden in einem Excel-Worksheet Werte geändert, die in Listboxen auf Reiter 2 (Multipage1.Value = 1) angezeigt werden sollen.
- Die Werte in dem Worksheet ändern sich zwar, wenn die ComboBox verändert wird, aber die _ Listboxen werden nicht aktualisiert. Um diese Aktualiserung durchzuführen, habe ich folgenden Code geschrieben:
Private Sub ComboBox1_Change()
Unload Me
UserForm1.Show
End Sub
Leider wird jetzt immer der Reiter der Multipage angezeigt, der beim abspeichern im Visual-Basic Editor angezeigt wurde.
In einem Modul habe ich diesen Code geschrieben:
Sub PageWechseln()
UserForm1.MultiPage1.Value = 1
End Sub
..und dann den Code angepasst:
Private Sub ComboBox1_Change()
Unload Me
UserForm1.Show
Application.OnTime Now, "PageWechseln"
End Sub
Leider klappt das auch nicht.
Zwei Antworten führen nach Rom:
a) Wie kann ich die Werte in meinen Listboxen alternativ nach dem Change-Ereignis der Combobox aktualisieren?
b) Wie kann ich im oben genannnten Kontekt den gewünschten Reiter der Multipage ansteuern?
Grüße aus Hamburg
Felix