Sachas project [ logo ] homepage

Update dieser Seite: 21.01.03

Excel und VBA - Formeln und Funktionen

Der "Programmierer": Sacha M. Sedleger, Postfach, CH - 3000 Bern 7


Auf dieser Seite sammle ich Tipps betreffend der Programmierung in VisualBasic für Applikationen, speziell für Excel-Applikationen. Ebenso notiere ich hier Formeln und Funktionen, damit ich diese später nicht wieder neu erfinden muss.

Fragen
Anstossen (Wie oft wird angestossen, bis jeder mit jedem ... hat.)
KalenderWoche aus Datum ermitteln
Runden auf 5 Cents

Anstossen
Antwort

Erklärung:
Um diese Aufgabe zu lösen, kopieren Sie die folgende Funktion in ein Modul der entsprechenden Arbeitsmappe.

Public Function Anstossen(Ende As Integer)
Dim summe As Long, i As Integer
For i = 1 To Ende - 1
summe = summe + i
Next i
Anstossen = summe
End Function

Hinweis:
Der Aufruf der Funktion sieht etwa so aus:

=Anstossen(x)

x ist der Bezug auf eine Zelle, die die Anzahl Personen enthält, oder direkt die Zahl.


KalenderWoche aus Datum ermitteln
Antwort

Erklärung:
Um diese Aufgabe zu lösen, kopieren Sie die folgende Funktion in ein Modul der entsprechenden Arbeitsmappe.

Public Function KWoche(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
KWoche = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Hinweis:
Der Aufruf der Funktion sieht etwa so aus:

=KWoche(x)

x ist der Bezug auf eine Zelle, die das Datum enthält.


Runden auf 5 Cents
Antwort

Erklärung:
Die folgende Formel multipliziert den Wert x * 20, rundet das Resultat auf 0 Stellen und dividiert es danach durch 20. Dadurch wird auf 5 Cents auf- oder abgerundet.

Beispiel:
0.03 * 20 = 0.6
Das gerundete Resultat ist aber 1
1 / 20 = 0.05

=RUNDEN(((x*20));0)/20

Hinweis:
x muss natürlich durch eine Zahl oder einen Zellbezug ersetzt werden.

Seitenanfang Copyright: Sacha 2003 Inhaltsverzeichnis