Ich habe eine Listboxen auf mehrere pages in einer userform. Mit ein command butten führe ich ein Makro auf dem jeweiligen tabbellenblatt aus um eine bestimmte spalte zu sortieren. Das funktioniert auch alles super. Um dann die Listbox richtig sortiert zu aktualisieren. Beende ich die userform und starte sie dann wieder. Leider springt er dann immer auf Page 0. Auch wenn ich angebe er soll auf page 1 oder 2 usw wechseln. WIe gesagt sortieren und neu befüllen der Listbox funktioniert alles.
Private Sub CommandButton115_Click()
Sortieren_Name
Unload Me
Startbildschirm.Show
MultiPage1.Value = 1
Bis Startbildschirm arbeitet er alles ab und geht dann wieder auf Page0Habe auch einen CommanButton 216 mit dem Inhalt MultiPage1.Value = 1
Einzelnd funktioniert der Button aber nicht in verbindung mit dem Button 115
Private Sub CommandButton115_Click()
Sortieren_Name
Unload Me
Startbildschirm.Show
Call CommandButton216_Click
End Sub
Fals es hilft ich habe auch noch die Initializierung falls das zu fehlern in der Abbarbeitung führt.Hier lass ich die Listboxen abarbeiten zum befüllen und das er mir bei start der userform die Page0 ausgiebt.
Private Sub UserForm_Initialize()
Dim lZeile As Long
'Einträge in die Listbox100
ListBox100.ColumnCount = 2
Call listboxaktualisieren(0)
'Einträge in die ListBox200
ListBox200.ColumnCount = 2
Call listboxaktualisieren2(0)
MultiPage1.Value = 0
End Sub
Wie gesagt nach dem Sortieren einmal nach Name und einmal nach ID soll er in der Page bleiben die ich gerade auf habe.