Hallo,
ich habe folgendes Problem.
Ich habe eine Programmierung vorgenommen, bei der ich folgende Formel benötigte:
Verbrauch = (Neu_km_Stand - Alt_km_Stand) / Getankte_Liter
Die vollständige Programmierung lautet:
Public Sub Bsp3()
Dim Alt_km_Stand As Single, Neu_km_Stand As Single, Getankte_Liter As Single, Verbrauch As Single
Alt_km_Stand = InputBox("Bitte geben Sie Ihren alten km Stand ein:", "alter km-Stand")
Neu_km_Stand = InputBox("Bitte geben Sie Ihren neuen km Stand ein:", "neuer km-Stand")
Getankte_Liter = InputBox("Bitte geben Sie die Höhe der getankten Liter ein:", "Getankte Liter")
Verbrauch = (Neu_km_Stand - Alt_km_Stand) / Getankte_Liter
MsgBox ("Der Benzinverbrauch auf 100 km war" & Verbrauch & "Liter")
End Sub
Jetzt stellt sich die Frage, was passiert, wenn die Höhe der getankten Liter = 0 ist? Dann habe ich eine Gleichung, die man nicht machen darf. Wie programmiere ich das dann?
Grüße
Melanie |