Hmm das haut bei mir nicht ganz so hin,.....

Gibts noch eine andere Lösung?

Meine VBA Kenntnisse sind etwas beschränkt,....

Aktuell sieht mein Code so aus.

'Userform-Einstellungen



Private Sub UserForm_QueryClose _
  (Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
  End If
End Sub


'==============================================================================================
'Reiter: 0 Allgemein

Private Sub TextBox1_Change()
Range("A6").Value = TextBox1.Value
End Sub


Private Sub TextBox2_Change()
Range("B6").Value = TextBox2.Value
End Sub

Private Sub TextBox3_Change()
Range("D6").Value = TextBox3.Value
End Sub

Private Sub OptionButton1_Click()
If OptionButton1 = True Then Range("C6") = "Arbeitsmittel"
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then Range("C6") = "Maschine"
End Sub

Private Sub OptionButton3_Click()
If OptionButton3 = True Then Range("C6") = "Tätigkeit"
End Sub


'Button Abbrechen
Private Sub Abbrechen_Click()

Rows(6).Delete

Worksheets("Betriebsanweisungen").Activate
ActiveSheet.Protect Password:="", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
ActiveSheet.EnableOutlining = True


Unload Userform_Betriebsanweisung

End Sub


'Button Weiter

Private Sub CommandWeiter0_Click()
MultiPage1.Value = 1
End Sub

'==============================================================================================
'Reiter: 1 Anwendungsbereich

Private Sub TextBox4_Change()
Range("F6").Value = TextBox4.Value
End Sub

Private Sub TextBox11_Change()
Range("E6").Value = TextBox11.Value
End Sub

'Button Weiter
Private Sub CommandButton4_Click()
MultiPage1.Value = 2
End Sub


'Button Zurück
Private Sub CommandZuruck1_Click()
MultiPage1.Value = 0
End Sub

'===============================================================================================================
'Reiter: 2 Gefahren für den Menschen

Private Sub TextBox5_Change()
Range("H6").Value = TextBox5.Value
End Sub

Private Sub TextBox12_Change()
Range("G6").Value = TextBox12.Value
End Sub

'Button Weiter
Private Sub CommandButton5_Click()
MultiPage1.Value = 3
End Sub

'Button Zurück
Private Sub CommandButton6_Click()
MultiPage1.Value = 1
End Sub


'===============================================================================================================
'Reiter 3 Schutzmaßnahmen und Verhaltensregeln

Private Sub TextBox6_Change()
Range("J6").Value = TextBox6.Value
End Sub

Private Sub TextBox13_Change()
Range("I6").Value = TextBox13.Value
End Sub

'Button Weiter
Private Sub CommandButton7_Click()
MultiPage1.Value = 4
End Sub

'Button Zurück
Private Sub CommandButton8_Click()
MultiPage1.Value = 2
End Sub


'===============================================================================================================
'Reiter 4 Verhalten bei Störung

Private Sub TextBox7_Change()
Range("L6").Value = TextBox7.Value
End Sub

Private Sub TextBox14_Change()
Range("K6").Value = TextBox14.Value
End Sub

'Button Weiter
Private Sub CommandButton9_Click()
MultiPage1.Value = 5
End Sub

'Button Zurück
Private Sub CommandButton10_Click()
MultiPage1.Value = 3
End Sub

'===============================================================================================================
'Reiter 5 Verhalten bei Unfall / Erste Hilfe

Private Sub TextBox8_Change()
Range("N6").Value = TextBox8.Value
End Sub

Private Sub TextBox15_Change()
Range("M6").Value = TextBox15.Value
End Sub

'Button Weiter
Private Sub CommandButton11_Click()
MultiPage1.Value = 6
End Sub

'Button Zurück
Private Sub CommandButton12_Click()
MultiPage1.Value = 4
End Sub

'===============================================================================================================
'Reiter 6 Instandhaltung / Entsorung

Private Sub TextBox9_Change()
Range("P6").Value = TextBox9.Value
End Sub

Private Sub TextBox16_Change()
Range("O6").Value = TextBox16.Value
End Sub

'Button Weiter
Private Sub CommandButton13_Click()
MultiPage1.Value = 7
End Sub

'Button Zurück
Private Sub CommandButton14_Click()
MultiPage1.Value = 5
End Sub

'===============================================================================================================
'Reiter 7 Zusätzlich zu beachten

Private Sub TextBox10_Change()
Range("R6").Value = TextBox10.Value
End Sub

Private Sub TextBox17_Change()
Range("Q6").Value = TextBox17.Value
End Sub

'Button Zurück
Private Sub CommandButton16_Click()
MultiPage1.Value = 6
End Sub

'Button Fertig
Private Sub CommandButton15_Click()
ActiveSheet.Protect Password:=""

ActiveWorkbook.Save

Unload Userform_Betriebsanweisung

   Dim Pfad As String
    Pfad = "T:\_THEMEN\HSE_Austausch\10_Betriebsanweisungen\"
    Shell "explorer.exe /e, " & Pfad, vbMaximizedFocus
        
End Sub