VBA
Excel VBA
Word VBA
Access VBA
VBScript
VB
C#
Objective-C
C++
SQL
JAVA
VBA (English)
Jobs
Übersicht
Thema
Datum
Von Nutzer
Rating
Antwort
Abfragen von txtVariablen
10.11.2003 22:40:46
Ela
Aw:Abfragen von txtVariablen
11.11.2003 09:19:37
Rasta
Ansicht des Beitrags:
Von:
Ela
Datum:
10.11.2003 22:40:46
Views:
1806
Rating:
Antwort:
Thema:
Abfragen von txtVariablen
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)
B
ei 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)
B
ei 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
Abfragen von txtVariablen
10.11.2003 22:40:46
Ela
Aw:Abfragen von txtVariablen
11.11.2003 09:19:37
Rasta