Pozedur mit Hauptsteuerung
14.01.2004 17:24:06
Jens
ich habe eine HA auf und weiß nicht weiter. ich muss dem untenstehenden modul eine schaltfläche zuweisen, dann soll man durch inputboxen aufgefordert werden die einzelnen werte einzugeben. ich weiß allerdings nicht ob man Function oben drüber schreiben muss oder workbook_open da unser lehrer uns das nicht gesagt hat.wäre super wenn mir einer helfen könnte.
DANKE
Option Explicit
Dim TName As String
Dim Alt_Zaehler As Currency
Dim Neu_Zaehler As Currency
Dim Verbrauch As Currency
Dim Gesamtpreis As Currency
Const Preiseinheit As Double = 0.1
Const Grundgebuehr As Double = 14.57
Sub Haupsteuerung()
Call Eingabe
Call Verarbeitung
Call Ausgabe
End Sub
Sub Eingabe()
TName = InputBox("Bitte geben sie den Teilnehmernamen ein: ")
Alt_Zaehler = InputBox("Bitte geben sie den alten Zählerstand ein: ")
Neu_Zaehler = InputBox("Bitte geben sie den neuen Zählerstand ein: ")
End Sub
Sub Verarbeitung()
Verbrauch = Neu_Zaehler - Alt_Zaehler
Gesamtpreis = (Verbrauch * Preiseinheit) + Grundgebuehr
End Sub
Sub Ausgabe()
Range("B3").Value = TName
Range("B4").Value = Alt_Zaehler
Range("B5").Value = Neu_Zaehler
Range("B6").Value = Verbrauch
Range("B7").Value = Gesamtpreis
End
Sub