Richtig einsteigen: Excel 2010 VBA-Programmierung

10.4 Nützliche Helfer

Nachfolgend finden Sie einige Beispiele, die Ihnen das praktische Arbeiten mit Funktionen näherbringen sollen.

Eine Rabattstaffel erstellen

Mittels einer VBA-Funktion können Sie eine benutzerdefinierte Rabattstaffel erstellen. Die Rabattstaffel in unserem Beispiel ist nach folgendem Muster aufgebaut:

Tabelle 10.2 Eine Rabattstaffel

Betrag	Rabatt
kleiner als 100	0 %
100 bis 499	5 %
500 bis 999	10 %
größer oder gleich 1000	15 %

Um die Rabattstaffel zu erstellen, können Sie wahlweise eine If- oder eine Select Case-Entscheidung verwenden. Wir benutzen hier Select Case:

Function dblRabatt(rngBetrag As Range) As Double Select Case rngBetrag Case Is < 100 dblRabatt = 0 Case 100 To 499 dblRabatt = 0.05 Case 500 To 999 dblRabatt = 0.1 Case Is >= ...