Thema Datum  Von Nutzer Rating
Antwort
10.11.2003 22:40:46 Ela
NotSolved
Blau Aw:Abfragen von txtVariablen
 11.11.2003 09:19:37 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
11.11.2003 09:19:37		 Views:
1113		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Abfragen von txtVariablen
Hallo Ela,

Deine Berechnungen sind meiner Meinung nach richtig. Du darfst die Combobox nicht auf den ListIndex prüfen.

Ich denke ".value" oder ".text" wären besser. Am besten prüfst Du natürlich den selektierten Index und gibst den Wert weiter. Welche Eigenschaft dieser ist, musst du selber testen.

hoffe es hilft


Gruß

Rasta



Ela schrieb am 10.11.2003 22:40:46:

Hallo Leute!

Ich hab hier sone Hausaufgabe und komme einfach nicht weiter :( ich weiss nicht wie ich das richtig berechnen soll es geht also um folgendes!

Private Sub cmdBerechnen_Click()
Dim intAnzahl As Integer
Dim dblStueckpreis As Double
Dim dblErgebnis As Double
intAnzahl = Val(txtStueckzahl.Value)

'Zuweisung der Einzelbeträge
Select Case cboProdukt.ListIndex
Case Is = 0
dblStueckpreis = 2#
Case Is = 1
dblStueckpreis = 3#
Case Is = 2
dblStueckpreis = 2.5
Case Is = 3
dblStueckpreis = 1.5
Case Is = 4
dblStueckpreis = 5#
Case Is = 5
txtEinzelbetrag
Case Else
MsgBox "Sie müssen einen Einzelbetrag angeben!" <- zu der Fehlermeldung kommt es nicht keine Ahnung wieso nicht :(
Wieso nicht?Und wie mache ich das das er es dann auch richtig berechnet?
End Select

'Berechnung Stueckzahl * Einzelpreis
dblErgebnis = dblStueckpreis * intAnzahl

txtEinzelbetrag = dblStueckpreis
txtRechnungsbetrag = dblErgebnis

'Brechnung der Mehrwertsteuer auf den Gesamtpreis
If optMwStkeine Then
txtRechnungsbetrag.Value = dblErgebnis
ElseIf optMwSt7 Then
txtRechnungsbetrag.Value = (dblErgebnis / 100) * 107
ElseIf optMwSt16 Then
txtRechnungsbetrag.Value = (dblErgebnis / 100) * 116
End If

If txtStueckzahl = "" Then
MsgBox "Sie haben keine Stückzahlangabe gemacht!"
End If

If txtEinzelbetrag.Text = "" Then
MsgBox "Sie müssen einen Einzelbetrag eingeben!"
End If


End Sub


danke schonmal im vorraus
:)

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:



  • 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
10.11.2003 22:40:46 Ela
NotSolved
Blau Aw:Abfragen von txtVariablen
 11.11.2003 09:19:37 Rasta
NotSolved