Hallo,

habs mir grad nochmal angeschaut, größtenteils ist es doch das was ich wollte. Nur noch ein paar kleine offene Fragen hab ich.

Der Code sieht nun so aus:

Private Sub UserForm_Initialize()

 Label1.Caption = ShStatus2.Cells(8, 6).Value
 Label2.Caption = ShStatus2.Cells(8, 8).Value
 Label3.Caption = ShStatus2.Cells(8, 10).Value
 Label4.Caption = ShStatus2.Cells(8, 12).Value
 Label5.Caption = ShStatus2.Cells(8, 14).Value

End Sub

                                                                                                                                                    --> Wenn ich für die Startzeile "Richtig" also CB1 klicke wie kann ich dann

                                                                                                                                                          diesen Teil (ShStatus2.Cells(i, 16).Value = 1) für die Zeile 8 einfügen??
Private Sub CommandButton5_Click()

Application.ScreenUpdating = False

s = ShStatus2.Range("d65536").End(xlUp).Row

 Const C_I_MIN As Long = 9 'erste Zeile
 Const C_I_MAX As Long = 54 'letzte Zeile                                                                            --> diese Konstante müsste ich varibiabilisieren aus s
 
 Static i As Long
 
 i = i + 1
 
 If i < C_I_MIN Or i > C_I_MAX Then i = C_I_MIN
 
 Label1.Caption = ShStatus2.Cells(i, 6).Text
 Label2.Caption = ShStatus2.Cells(i, 8).Text
 Label3.Caption = ShStatus2.Cells(i, 10).Text
 Label4.Caption = ShStatus2.Cells(i, 12).Text
 Label5.Caption = ShStatus2.Cells(i, 14).Text
 

ShStatus2.Cells(i, 16).Value = 1

Application.ScreenUpdating = True

Call DatenDiaBereich

ShDiagramm.Activate
Range("a1").Select

Unload Me

End Sub

Private Sub CommandButton7_Click()
Unload Me
End Sub

So, vielen Dank nochmal!

Jenny