Maniacs Excel-Base

9	Berechnungen

-= Entstanden unter Excel 2003 =-
4686 Aufrufe

55 KB - 200 Download(s)

Userbewertung
54.1%

|| 45.9%

Wie hilfreich war diese Seite?
(Bisher 368 Stimmen)

Natürlich werden Sie mit VBA auf die Dauer auch Berechnungen durchführen wollen. Die Grundrechenarten möchte ich Ihnen kurz vorstellen:

- Addition,
- Subtraktion,
- Multiplikation,
- Division sowie zusätzlich
- Potenzierung.

Das folgende Skript zeigt Ihnen den Umgang mit den Grundrechenarten - sowie ein paar neue Funktionen:

Codefenster

Sub rechnen()

Dim zahl1, zahl2, zahl3 As Integer
Const potenz = 3

__'Einen Wert abfragen
__ __zahl1 = InputBox("Geben Sie eine Zahl ein", "Wert ermitteln")

__'Alle Zellen in Spalte A in Fett
__ __Columns("A:A").Select
__ __Selection.Font.Bold = True

__'Addition
__ __zahl2 = 2 + zahl1
__ __Range("A1").Value = "Addition"
__ __ActiveCell.Offset(1, 1).Value = "2 + " & zahl1 & " ="
__ __ActiveCell.Offset(1, 2).Value = zahl2

__'Subtraktion
__ __ActiveCell.Offset(3, 0).Select
__ __zahl2 = 1000 - zahl1
__ __ActiveCell.Value = "Subtraktion"
__ __ActiveCell.Offset(1, 1).Value = "1000 - " & zahl1 & " ="
__ __ActiveCell.Offset(1, 2).Value = zahl2

__'Multiplikation
__ __ActiveCell.Offset(3, 0).Select
__ __zahl2 = zahl1 * zahl1
__ __ActiveCell.Value = "Multiplikation"
__ __ActiveCell.Offset(1, 1).Value = zahl1 & " * " & zahl1 & " ="
__ __ActiveCell.Offset(1, 2).Value = zahl2

__'Division
__ __ActiveCell.Offset(3, 0).Select
__ __zahl2 = 100 / zahl1
__ __ActiveCell.Value = "Division"
__ __ActiveCell.Offset(1, 1).Value = "100 / " & zahl1 & " ="
__ __ActiveCell.Offset(1, 2).Value = zahl2

__'Potenz
__ __ActiveCell.Offset(3, 0).Select
__ __zahl2 = zahl1 ^ potenz
__ __ActiveCell.Value = "Potenz"
__ __ActiveCell.Offset(1, 1).Value = zahl1 & " hoch " & potenz & " ="
__ __ActiveCell.Offset(1, 2).Value = zahl2

End Sub

Lassen Sie das Modul durchlaufen und sehen Sie sich das Ergebnis an:

Wenn Sie beispielsweise bei der Eingabeaufforderung am Anfang eine 2 eingeben erhalten Sie das folgende Ergebnis:

	A	B	C
1	Addition
2		2 + 2 =	4
3
4	Subtraktion
5		1000 - 2 =	998
6
7	Multiplikation
8		2 * 2 =	4
9
10	Division
11		100 / 2 =	50
12
13	Potenz	2 hoch 3	8
14

Vielleicht sind Ihnen die Neuerungen schon aufgefallen - ich möchte Sie kurz erläutern:

Befehl	Funktionsweise
const	definiert eine Konstante - natürlich könnte man in den entsprechenden Formeln auch direkt den Wert der Konstanten eingeben und sich diese somit sparen. Aber gerade wenn eine Konstante häufig benutzt wird und der Inhalt sehr lang ist, kann man sich sehr viel Eingabeaufwand ersparen. Außerdem kann es sein, dass der Wert der Konstante im Laufe der Zeit angepasst werden muss (z.B. Anpassung des MwSt-Satzes). Wenn Sie in diesem Fall mit einer Konstanten arbeiten, müssen Sie lediglich die Konstante verändern.
InputBox	Öffnet ein Fenster, in welchem der User eine Eingabe machen muss. Der erste Wert ist der Text, der in dem Fenster stehen soll. Der zweite Wert ist die Überschrift des Fensters.
Columns	Bisher haben wir immer einzelne Zellen oder Bereiche angesprochen mit Columns können Sie komplette Spalten ansprechen. Analog dazu können Sie Rows benutzen, um komplette Zeilen anzusprechen.
+	Addition
-	Subtraktion
*	Multiplikation
/	Division
^	Potenzieren