Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Rechnen | Herbers Excel-Forum


Betrifft: Rechnen von: Einzel
Geschrieben am: 15.01.2010 20:40:39

Hallo,
will einen Rabatt ausrechnen.
Habe dieses Makro geschreiben.

Sub Makro4()
Dim r As String
Dim i As Integer
Dim j As Integer
Const Divisor = "100"
Const Faktor = "20"
r = InputBox("Bitte Katalog Preis eingeben", "Rabatt")
If r = "" Then Exit 
Sub 'Abbruch belegen
MsgBox r & ("€")
i = r / Divisor
MsgBox i & ("€")
i = i * Faktor
MsgBox i & ("€")
j = r - i
MsgBox j & ("€")
End Sub

Klappt leider nicht.
Wenn ich 1000 eingeben geht es, wenn ich 34,50 ein gebe dann nicht.
Hat jemand eine Idee?
MfG
Stephan

  

Betrifft: Double statt Integer o.T. von: Josef Ehrensberger
Geschrieben am: 15.01.2010 20:46:28

Gruß Sepp



  

Betrifft: AW: Double statt Integer o.T. von: Einzel
Geschrieben am: 16.01.2010 12:55:14

Super danke klappt.


Beiträge aus den Excel-Beispielen zum Thema "Rechnen"