Hallo,
erbitte Hilfe mit diesem Problem, für das ich hoffentlich genügend Info liefere:
1) eine userform übergibt mit cmd1  bis zu 5 order items, cleart die Eingabefelder für erneute Eingaben.  
2) ein cmd2 übergibt die restlichen order items und schreibt die Bestellung
3) Nach einer Änderung der userform funktioniert nur noch die finale, nicht jedoch die temporäre Datenübergabe
4) Das Problem entstand, als ich zwei Radio buttons (Discount Yes or NO) gegen ein Kontrollkästchen (Discount Yes)  tauschte. Benutze ich cmd2 (weil ich nur ingesamt 5 items habe) gibt es keinen Laufzeitfehler. Benutze ich cmd1 , erhalte ich Fehler 13 (Typen unverträglich)

VORHER (keine Probleme):

Private Sub txtOrdersDisc1_Change()
        Dim q
        Dim u
        Dim d
        q = txtOrdersQty1.Value 'dieser Wert wird vom Anwender eingetragen
        u = txtOrdersUnitPrice1.Value  ' dieser Wert wird automatisch eingetragen
        d = txtOrdersDisc1.Value  'dieser Wert wird vom Anwender eingetragen
        
            If txtOrdersDisc1.Value = "" Then
                txtOrdersItemSum1.Value = Format(q * u, "#,0.00")
            Else
              txtOrdersItemSum1.Value = Format(q * (u - ((u / 100) * d)), "#,0.00")
            End If
End Sub

NACHHER (mit Fehlermeldung bei cmd1 Benutzung):
 
Da das Kontrollkästchen nur optional gecheckt wird, habe ich die Berechnung der Summe zusätzlich in die txtOrdersQty1 gelegt:

Private Sub txtOrdersQty1_Change()
txtOrdersQty1.BackColor = rgbWhite
        
        Dim q
        Dim u
    
        q = txtOrdersQty1.Value
        u = txtOrdersUnitPrice1.Value
          txtOrdersQty1.BackColor = rgbWhite
          txtOrdersQty1.ForeColor = Me.ForeColor
          
             txtOrdersItemSum1.Value = Format(q * u, "#,0.00")
             txtOrdersItemSum1.BackColor = RGB(233, 250, 195)

End Sub

Nur der Vollständigkeit halber: Hier ist der Code zum Clearen der Form nach cmd1 Click:

Dim X As Integer
For X = 1 To 5
Me.Controls("cboOrdersChoose" & X).Value = ""
Me.Controls("txtOrdersQty" & X).Value = ""
Me.Controls("txtOrdersUnitPrice" & X).Value = ""
Me.Controls("txtOrdersDisc" & X).Value = ""
Me.Controls("txtOrdersItemSum" & X).Value = ""

Next X
OrdersDiscYes1.Value = False

Für Hilfestellung (bitte auch meinen name handle beachten...) wäre ich sehr dankbar!