Excel VBA - Select Case

Hi!

Ich habe ein Problem, undzwar habe ich die Aufgabe bekommen, in der Schule eine "Präsentation" zu halten, wie man in Excel VBA "select case" anwendet. ABER: Ich habe absolut keine Ahnung wie das geht.

Folgende Aufgabe ist gegeben:
Ein Großhändler gewährt einem Einzelhändler folgende Skonti:

5 % bei Zahlungseingang innerhalb von 10 Tagen nach Rechnungsdatum
3% bei Zahlung innerhalb von 20 Tagen nach Rechnungsdatum
1,5 % bei Zahlung innerhalb von 30 Tagen nach Rechnungsdatum
0% bei späterer Zahlung

Sollte der Einzelhänler einen falschen Skontobetrag abgezogen haben, so soll eine Mitteilung ihn darauf hinweisen, dass er den Differenzbetrag noch schuldet.

Bitte und Danke um jede Hilfe.

MFG

Warum Excle VBA?

Das geht doch auch ganz plumt mit ner Wenn_Oder kombiniert mit nem S_Verweis?! Oder dürft ihr nicht damit arbeiten?

Die Aufgabe ist es, das mit "select case" zu lösen.
Sonst hätte ich es auch so geschafft.

*ggg*

Na dann...falle ich raus.

Private Sub CommandButton1_Click()

Dim Name As Single (ich weiß, Syntax ist falsch)
Dim Zielverkaufspreis As Currency
Dim Skonto As Currency
Dim Sktontosatz1 As Single
Dim Sktontosatz2 As Single
Dim Sktontosatz3 As Single
Dim Sktontosatz4 As Single
Dim Rechnungsdatum As Date
Dim Zahlungseingang As Date
Dim DifferenzTage As Single

Tabelle1.TextBox1 = Name
Tabelle1.TextBox2 = Zielverkaufspreis
Tabelle1.TextBox3 = Rechnungsdatum
Tabelle1.TextBox4 = Zahlungseingang

Skontosatz1 = 0.05
Skontosatz2 = 0.03
Skontosatz3 = 0.015
Skontosatz4 = 0

Select Case Abs(DateDiff("d", [a1], [a2]))
Case 0 To 10
MsgBox "5%"
Case 11 To 20
MsgBox "3%"
Case 21 To 30
MsgBox "1.5%"
Case Else
MsgBox "kein Skonto"
End Select

ListBox1.Clear
ListBox1.AddItem [Name]
ListBox1.AddItem [Skonto] & " €"

End Sub

Private Sub CommandButton2_Click()

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ListBox1.Clear

End Sub


Den "select case"-Teil hat mir jmd. so gegeben. Kann damit aber immernoh nichts anfangen. Brauche es bis morgen für die Schule, sonst 6.

BITTE BITTE HELFEN!!!!!!!

Ich kann das wirklich nicht. Hab kaum VB drauf. "Knubble" hier ausm Forum konnte das damals mal. Den hab ich aber schon hunddert Jahre hier nicht mehr gesehn. Sorry!

Ich kann dir leider auch net helfen, hab das schon ewig nicht mehr gemacht und beim besten Willen auch keine Zeit mich da jetzt noch rein zu denken. Müsste da wohl auch wieder bei 2 % anfangen...

Tut mir leid :/

hiho,

1.: Select Case Abs(DateDiff("d", [a1], [a2]))

DateDiff wird eine Funktion sein, die dir von einem Anfangsdatum [a1] und einem Endedatum [a2] die Differenz in Tagen gibt.
Abs gibt den Absolutbetrag, damit du nicht eine Differenz von -10 Tagen hast.

2.: Case 0 To 10

Für alle Differenzen von 0 bis einschliesslich 10. Gibt dann ne Messagebox (Popup), wo 5% drauf steht.

3.: Case 11 To 20

Für alle Differenzen von 11 bis einschliesslich 20. Gibt dann ne Messagebox (Popup), wo 3% drauf steht.

4.: Case 21 To 30

Für alle Differenzen von 21 bis einschliesslich 30. Gibt dann ne Messagebox (Popup), wo 1,5% drauf steht.

5.: Case Else

Für alle Differenzen größer als 30 Tage sind. Gibt dann ne Messagebox (Popup), wo "kein Skonto" drauf steht.

... puhh das ist bei mir auch schon ne halbe Ewigkeit her wo ich mich damit befasst habe

Nach dem lesen des Beitrags von smallone würde ich sagen ist Aufgabe doch gelöst