Also;

Meine Makro über schleifen bis zu diesem Punkt;

           
            Cells(zl, sp + 2).Select
            
            STATIS.Show
            
                            
    If Cells(2, 10).Value = "einbuchen" Then
                If StrPtr(status) = 0 Then
                Exit Sub
                Else
                                 
                Select Case status:
                                             
                                                 Case "90000000000010":
                                                 status = "frei"
                                                 
                                                                  
                                                 Case "90000000000020":
                                                 status = "unklar/NA"
                                                 
                                                                  
                                                 Case "90000000000030":
                                                 status = "gesperrt"
                                                 
                                                                  
                                                 Case "90000000000040":
                                                 status = "fertig"
                                                 
                                                 
                End Select
                                         

dann kommt die Userform STATIS

Sub CB1_Click()



 
status = "90000000000010"

STATIS.Hide


End Sub

 Sub CB2_Click()


    
status = "90000000000020"

STATIS.Hide


End Sub

 Sub CB3_Click()
 


status = "90000000000030"

STATIS.Hide


End Sub

 Sub CB4_Click()


status = "90000000000040"

STATIS.Hide


End Sub

nach beenden der Userform läuft laut meinem Wissen die Makro weiter, dennoch übermittelt die Userform die Variable nicht.

Was nun?

beste Grüße