Hallo zusammen,

für eine immer wiederkehrende Preisermittlung verschiedener Artikel möchte ich den Preis über eine Userform ermitteln.

Die Userform enthält 8 Reiter mit je einer Produktgruppe

Es müssen Daten zu Größe, Farbe und Anzahl eingegeben, bzw. per Optionbutton oder Listbox ausgewählt werden.

Siehe Bild der Userform:

Ich bekomme es aber nicht hin, dass der Code einen Preis berechnet:

Option Explicit
Public intGroesse As Integer
Public curFarbe, curPreisEK, curPreis1, curPreis2, curPreis3 As Currency
Public intAnzahl As Integer

Public Sub btnStdQuer_Click()
  intGroesse = [J10]
End Sub

Public Sub btnStdHoch_Click()
  intGroesse = [J10]
End Sub

Public Sub btnGrossQuer_Click()
  intGroesse = [J11]
End Sub

Public Sub btnGrossHoch_Click()
  intGroesse = [J11]
End Sub

Public Sub btnFarbe10_Click()
  curFarbe = [C2]
End Sub

Public Sub btnFarbe11_Click()
  curFarbe = [C3]
End Sub

Public Sub btnFarbe40_Click()
  curFarbe = [C4]
End Sub

Public Sub btnFarbe41_Click()
  curFarbe = [C5]
End Sub

Public Sub btnFarbe44_Click()
  curFarbe = [C6]
End Sub

Public Sub lbAnzahl_Click()
  intAnzahl = lbAnzahl.Value
End Sub

Public Sub cmdBerechnen_Click()

  curPreisEK = intAnzahl * intGroesse * curFarbe * 0.052
  txtPreisEK = curPreisEK
  
  txtPreis1 = curPreisEK * 1.5
  txtPreis2 = curPreisEK * 2
  txtPreis3 = curPreisEK * 2.5

End Sub

'Public Function Groesse(ByVal intGroesse As Integer) As Integer
'
'  Select Case Groesse
'
'    Case btnStdQuer.Value = True
'    intGroesse = [J10]
'
'    Case btnStdHoch.Value = True
'    intGroesse = [J10]
'
'    Case btnGrossQuer.Value = True
'    intGroesse = [J11]
'
'    Case btnGrossHoch.Value = True
'    intGroesse = [J11]
'
'  End Select
'End Function

'Public Function Farbe(ByVal curFarbe As Currency) As Currency
'
'  Select Case Farbe
'
'    Case btnFarbe10.Value = True
'    curFarbe = [C2]
'
'    Case btnFarbe11.Value = True
'    curFarbe = [C3]
'
'    Case btnFarbe40.Value = True
'    curFarbe = [C4]
'
'    Case btnFarbe41.Value = True
'    curFarbe = [C5]
'
'    Case btnFarbe44.Value = True
'    curFarbe = [C6]
'
'  End Select
'End Function

Private Sub cmdSchliessen_Click()

Unload Me

End Sub

Die auskommentierten Blöcke waren ein Versuch den ich noch nicht löschen wollte.
Ich habe keine Ahnung was ich hier anders machen könnte.
Die Textboxen zeigen immer nur 0.

Kann mir hier vielleicht jemand helfen?
Vielen Dank und beste Grüße, Luca