Userform mehrere Arbeitsblätter?

[M.Wichmann]

Hab da was gefunden.

MultiPage2.Value = Cells(9, 7 + SpinButton1.Value).Value

reagiert jetzt auf meine "Inhaltsverzeichnisleiste".

Aber wie kann ich jetzt am besten regeln, das wenn anderes Blatt aktiv ist eine andere Multipage genommen werden soll?
Am besten wäre eine automatische Reaktin auf den Zelleninhalt von F10

[M.Wichmann]

Hallo noch mal zum Wochenende 


konnte es soweit hinbekommen:

Code:

If ActiveSheet.Cells(10, 6).Value = "7506" Then
MultiPage1.Pages(0).Visible = True
MultiPage1.Value = 0
MultiPage2.Value = 0
End If
If ActiveSheet.Cells(10, 6).Value = "7509" Then
MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1

End If
If ActiveSheet.Cells(10, 6).Value = "7510" Then
MultiPage1.Pages(2).Visible = True
MultiPage1.Value = 2

End If
If ActiveSheet.Cells(10, 6).Value = "7517" Then
MultiPage1.Pages(3).Visible = True
MultiPage1.Value = 3

Zum ein ausblenden

Und 

Code:

Private Sub SpinButton1_Change()

On Error Resume Next

If ActiveSheet.Cells(10, 6).Value = "7506" Then
MultiPage2.Value = Cells(9, 7 + SpinButton1.Value).Value
End If
If ActiveSheet.Cells(10, 6).Value = "7509" Then
MultiPage3.Value = Cells(9, 7 + SpinButton1.Value).Value
End If
If ActiveSheet.Cells(10, 6).Value = "7510" Then
MultiPage4.Value = Cells(9, 7 + SpinButton1.Value).Value
End If
If ActiveSheet.Cells(10, 6).Value = "7517" Then
MultiPage5.Value = Cells(9, 7 + SpinButton1.Value).Value
End If

Um die entsprechenden Seiten anzuzeigen, mit Vorwahl der Seite über der Tabelle

[M.Wichmann]

gelöscht, hat sich wohl erledigt