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

Du weißt schon, wie sich If (WENN) Then (DANN) und Else (SONST) verhalten oder?

If zahl > 100000 And zahl < 200001 Then
    'Ausgabe1
    Else
    MsgBox "der Mitarbeiter erhält eine Provision von 1000€."

Da schreibst du übersetzt: WENN der Umsatz zwischen 100000 und 200001 liegt, DANN mache gar nichts, SONST gebe die Messagebox mit der Privision aus. Das ist ja irgendwie nicht das, was du willst.
Außerdem wird das Konstrukt darunter in jedem Fall wieder durchlaufen. Du möchtest aber sowas wie:
WENN der Umsatz unter 100000 DANN
    gebe die Messagebox mit der Schulung
SONST WENN der Umsatz zwischen 99999 und 200001 DANN
    gebe die Messagebox mit der 1000€ Provision
SONST gebe die Messagebox mit der 2000€ Provision.

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

jetzt versteh ich was du meinst nur versteh ich nich wie ich dem Prog das erklären soll wann er was raus zu haun hat... unter 100000 -> Schulung
       > als 100001  aber < als 200001  =  1000 Provision
       > als 200000                     =  2000 Provision

wie muss ich das schreiben?

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

WENN der Umsatz unter 100000 DANN
    gebe die Messagebox mit der Schulung
SONST WENN der Umsatz zwischen 99999 und 200001 DANN
    gebe die Messagebox mit der 1000€ Provision
SONST gebe die Messagebox mit der 2000€ Provision.

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.

vielen dank ! hat mir hoffendlich geholfen ! ich werd versuchen es umzusetzten..

Danke dir.. ???

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