Thema Datum  Von Nutzer Rating
Antwort
Rot Preisberechnung
 29.06.2014 18:34:50 Gast55361
NotSolved
29.06.2014 19:08:09 Gast31067
NotSolved
30.06.2014 11:04:18 Gast34140
NotSolved

Ansicht des Beitrags:
Von:
Gast55361		 Datum:
29.06.2014 18:34:50		 Views:
1534		 Rating:
     
Antwort:
  Ja
Thema:
Preisberechnung

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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
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
?
1
2
3
4
5
6
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Preisberechnung
 29.06.2014 18:34:50 Gast55361
NotSolved
29.06.2014 19:08:09 Gast31067
NotSolved
30.06.2014 11:04:18 Gast34140
NotSolved