"Excel-Programmierung" Visual Basic

[doemEINSI]

Hi folks,

ich bin Systemintegrator und trotzdem muss ich ab und an etwas Anwendungsentwicklung betreiben. Ich verstehe relativ wenig davon, deshalb wäre ich Euch dankbar, wenn Ihr meine Aufgabe lösen könntet:


Ausgangssituation:
Ihre Firma hat für einen Verkehrsverbund einen Prototyp für die Steuerung eines Fahrkartenautomaten entwickelt.
Jetzt hat ihre Firma den Auftrag erhalten, die Steuerung zu erweitern, so dass ein Kundenbindungsprogramm und eine neue Preisstufe realisiert werden können.

Die geplanten Erweiterungen
1. Es soll eine neue fünfte Preisstufe [...].
2. Als Kundenbindungsprogramm sollen Kunden belohnt werden, die viele Fahrkarten auf einmal kaufen. Werden also bei einem Kauf mehr als 10 Fahrkarten einer Preisstufe erworben, so erhält der Kunde für jeweils 10 Fahrkarten eine Fahrt umsonst.
Beim Kauf von Karten unterschiedlicher Preisstufen wird dieses Kriterium auf jede Preisstufe getrennt angewandt.


Die erste Aufgabe habe ich gerade noch so hinbekommen :-P


Hier die Excel-Datei:
http://www.sendspace.com/file/k6sjk4

Und direkt der Code:

Option Explicit
Sub fahrkartenautomat()
Dim Preisstufe As Integer
Dim anzahl     As Integer
Dim nochmal    As Integer
Dim zahlung_ok As Integer
Dim anz_stufe1 As Integer
Dim anz_stufe2 As Integer
Dim anz_stufe3 As Integer
Dim anz_stufe4 As Integer
Dim anz_stufe5 As Integer
    MsgBox ("Herzlich Willkommen an Ihrem Fahrkartenautomaten")
    anz_stufe1 = 0
    anz_stufe2 = 0
    anz_stufe3 = 0
    anz_stufe4 = 0
    anz_stufe5 = 0
    Do
        Preisstufe = InputBox("Bitte geben Sie die Preisstufe ein")
        anzahl = InputBox("Bitte geben Sie jetzt die Anzahl der Fahrkarten der Preisstufe " & Preisstufe & " ein")
        Select Case Preisstufe
            Case 1: anz_stufe1 = anz_stufe1 + anzahl
            Case 2: anz_stufe2 = anz_stufe2 + anzahl
            Case 3: anz_stufe3 = anz_stufe3 + anzahl
            Case 4: anz_stufe4 = anz_stufe4 + anzahl
            Case 5: anz_stufe5 = anz_stufe5 + anzahl
        End Select
        nochmal = MsgBox("Wollen Sie weitere Fahrkarten erwerben?", vbYesNo)
    Loop While nochmal = vbYes
    MsgBox ("Sie haben " & vbNewLine & _
             anz_stufe1 & " Fahrkarten der Stufe 1," & vbNewLine & _
             anz_stufe2 & " Fahrkarten der Stufe 2," & vbNewLine & _
             anz_stufe3 & " Fahrkarten der Stufe 3," & vbNewLine & _
             anz_stufe4 & " Fahrkarten der Stufe 4 " & vbNewLine & _
             anz_stufe5 & " Fahrkarten der Stufe 5," & vbNewLine & _
             "erworben. " & vbNewLine & _
             "Das macht zusammen " & _
             1.2 * anz_stufe1 + 1.8 * anz_stufe2 + 2.8 * anz_stufe3 + 4.2 * anz_stufe4 + 5.4 * anz_stufe5 & _
             "Euro.")
    MsgBox (" Ausdruck Fahrkarten. " & vbNewLine & "Gute Fahrt!")
End Sub

Ich danke Euch jetzt schonmal,


doemEINS

[doemEINSI]

Kann das keiner von Euch realisieren?
Bräuchte langsam wenigstens mal einen Ansatz. Ich komme damit echt nicht klar.

doem