Win XP: Win XP: HILFE !!! Brauche Hilfe bei VIRTUAL BASIC !

programmiere grad mit Virtual basic..HAB volgendes Prob.:
ich bekomm nicht die richtige antwort bei meinem Prog.:



Sub mitarbeiterumsaetze()

'deklarationen
Dim zahl As Long
'Eingabe
InputBox ("Bitte geben sie den Jahresumsatz des Mitarbeiters ein, kein Euro Zeichen verwenden!")
'Verarbeitung1
If zahl > 100000 And zahl < 200001 Then
    'Ausgabe1
    Else
    MsgBox "der Mitarbeiter erhält eine Provision von 1000€."
If zahl > 200000 Then
    'Ausgabe2
    MsgBox "Der Mitarbeiter erhält eine Provision von 2000€."
    Else
    MsgBox "Bitte melden sie den Mitarbeiter zu einer Schulung an."
    End If
End If
End Sub


er soll bei weniger Umsatz als 100000 eine Umschulung machen
bei mehr als 100000 - 200001 eine Provision von 1000 € bekommen
und bei mehr umsatz als 200000 eine Provision 2000€

kann mir jemand helfen??

sorry ich versteh nur noch bahnhof? kannst du mir das mal richten? damit ichs verstehe? bzw.erklären?

Ist doch gar nicht mehr schwer. Du brauchst nur dein Programm so zu sortieren, dass dort das hier passiert:

Das kannst du so ziemlich 1:1 übersetzen. WENN = If, "der Umsatz unter 100000" = zahl < 100000, usw.

Du musst nur aufpassen, was du mit den Grenzen machst, d.h. ob 100000 noch in die "Schulung"-Nummer (zahl < 100001) oder schon in die Provision-Geschichte (zahl < 100000) reingehört.

Hi,

wenn ich einen Vorschlag machen darf:

'deklarationen
Dim zahl As Long
'Eingabe
InputBox ("Bitte geben sie den Jahresumsatz des Mitarbeiters ein, kein Euro Zeichen verwenden!")
'Verarbeitung1
If zahl < 100000 Then 'Schulung
    MsgBox "Bitte melden sie den Mitarbeiter zu einer Schulung an."
    Else
    If zahl > 99999 And zahl < 20000 Then 'Provision 1000
         MsgBox "der Mitarbeiter erhält eine Provision von 1000€."
         Else 'Provision 2000
              MsgBox "Der Mitarbeiter erhält eine Provision von 2000€."
    End If
End If
End Sub