VBA mehre Voraussetzungen prüfen wert wählen

Hallo!
Ich möchte gerne automatisch einen Wert aus einer Liste auswählen der Verschiedenen Anforderungen entspricht.
Im Detail:
Ich habe 2 Tabellen:
Kunden: Darin befinden sich unter anderem Kategorie, Stammkunde, Dauer (wie lange schon Kunde) und Umsatz groeßer 80 bzw kleiner gleich 80 z.B.
3, 1, 2, gr 80
Rabatte: enthält ebenfalls Kategorie, Stammkunde, Umsatz groeßer 80 bzw. kleiner gleich 80, Dauer (wie lange schon Kunde in versch. gruppierungen) und und den entsprechenden Rabatt z.B.
1, 1, kleiner gleich 80, kleiner gleich10, 05
Insgesamt gibt es 120 verschiedene Rabattsätze.
Anmerkung: Groeßer bzw. kleiner gleich sind natürlich mit den entprechenden Zeichen eingegeben, ich hatte aber probleme das dirket zu posten.
In der Tabelle Kunden soll dem Kundnen nun der Rabatt eingefügt werden der zu seinen Daten passt.
Wichtig die Tabelle Kunden wird laufend aus einer Datenbank importiert und hat immer eine Andere Anzahl von Datensätzen.
Leider habe ich nur ganz geringe VBA Kenntnisse, es wäre super wenn der Code kommentiert wäre was wofür ist bzw. macht.
Danke im Voraus
Lg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Elisabeth,
ich habe mal für ein vergleichbares Problem eine eigene Funktion geschrieben, hier ist ein Muster:

Function MeineFormel(Qty As Double, Price As Double) As Double
Application.Volatile True
Dim CustDiscount, CustGroup, QtyDiscount
CustDiscount = [c3]:    CustGroup = [c5]:     QtyDiscount = [c7]
If Qty >= 10 And CustGroup = "A" Then           ' Kundennachlass und Mengennachlass
MeineFormel = Qty * Price * (1 - CustDiscount / 100) * (1 - QtyDiscount / 100)
ElseIf Qty = 10 And CustGroup  "A" Then      ' nur Mengennachlass
MeineFormel = Qty * Price * (1 - QtyDiscount / 100)
Else                                            ' kein Nachlass
MeineFormel = Qty * Price
End If
End Function

Zum Testen: Füge den Code in ein Standard-Modul ein, trage in eine Tabelle Deiner Wahl in
C3 einen Kundenrabatt als festen Wert, ohne Prozentzeichen ein, ist aber nur angelegt für Kundengruppe A
C5 ein A für Kundengruppe A (nur A ist angelegt, alle anderen bekommen keinen Rabatt)
C7 einen Mengenrabatt, der erreicht wird bei einer Bestellmenge größer 10
Jetzt trage in eine Zelle Deiner Wahl eine Menge ein, der Einfachheit halber rechts daneben einen Verkaufspreis. Jetzt mußt Du die eben erstellte Funktion benutzen. Trage, wieder der Einfachheit halber rechts der ersten zwei Zellen, ein: Ein Gleichheitszeichen, gefolgt von einem "m". Jetzt sollte in der Liste der angebotenen Formeln "MeineFormel" auftauchen. Bestätige mit der Tab-Taste, Klicke in die erste Zelle, schreibe ein Semikolon, klicke in die zweite Zelle, Enter.
Jetzt sollte ein Ergebnis dort stehen. Spiele mit den eingegebenen Werten und sieh dir an, wie sich das Ergebnis verändert.
Wenn dieses Muster Dir zusagt, läßt sich mit genaueren Angaben ein passende Funktion bauen.
Detlef

Beliebteste Forumthreads (12 Monate)

VBA mehre Voraussetzungen prüfen wert wählen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread