|
Hallo,
so, nun also die endgültige Version, falls das jemand mal brauchen sollte. Mein Kollege hat mir geholfen eine Lösung zu finden.
Private Sub UserForm_Initialize()
r = ShIntern2.Range("e56").Value
Label1.Caption = ShStatus2.Cells(r, 6).Value
Label2.Caption = ShStatus2.Cells(r, 8).Value
Label3.Caption = ShStatus2.Cells(r, 10).Value
Label4.Caption = ShStatus2.Cells(r, 12).Value
Label5.Caption = ShStatus2.Cells(r, 14).Value
End Sub
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
r = ShIntern2.Range("e56").Value
ShStatus2.Cells(r, 16).Value = 1
ShIntern2.Range("e56") = ShIntern2.Range("e56") + 1
i = ShIntern2.Range("e56").Value
s = ShStatus2.Range("d65536").End(xlUp).Row
If i > s Then
MsgBox "Alle Fragen beantwortet"
Unload Me
Exit Sub
Else
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
End If
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton7_Click()
Unload Me
End Sub
|