Addieren
Um eine Addition vornehmen zu können, muss zunächst der Variablentyp festgelegt werden.
Um rechnen zu können, kann der Wert z.B. mit dem Variablentyp "Single" definiert werden. Der Variablentyp Single ermöglicht Rechnungen mit 8-stelligen Nachkommastellen.
Im folgenden Beispiel wird die Variable positioniert auf die Zelle "A1" im Registerblatt "Tabelle1".
Der Rechenbefehl addiert "5" zum bisherigen Wert in der gleichen Tabelle.
Mit der folgenden Codezeile wird bestimmt, dass das Ergebnis in der gleichen Zelle wieder ausgegeben wird.
Mittels Änderung von "A1" kann man in der Zeile ".Range("A1").Value = Wert" die Zelle einstellen, in der das Ergebnis ausgegeben wird.
Nachfolgender Code bewirkt, dass das Ergebnis in einem anderen Tabellenblatt ausgegeben wird.
Entscheidend ist hier das der "With"-Befehl beendet wird, bevor die Zelle für die Wert-Ausgabe festgelegt wird, da sich diese Zelle in einem anderen Tabellenblatt befindet und der With-Befehl sich auf das Tabellenblatt "Tabelle1" bezieht. Das Ergebnis soll in diesem Fall allerdings in dem Tabellenblatt "Tabelle3" und dort in der Zelle "A3" ausgegeben werden.
Nachfolgender Befehl addiert die Zahlen der Zellen "A1" und "B1" und gibt das Ergebnis in der Zelle "C1" wieder aus.
Der folgende Befehl addiert in einem festgelegten Tabellenblatt ("Tabelle1") die Zahl der Spalte 1 in der ersten Zeile (A1) mit der Zahl der Spalte 2 in der ersten Zeile (B1) und gibt den Wert in der Spalte (C1) aus. Diese Rechenoperation wird solange durchgeführt, bis die erste Zelle der 1. Spalte leer ist.
Um rechnen zu können, kann der Wert z.B. mit dem Variablentyp "Single" definiert werden. Der Variablentyp Single ermöglicht Rechnungen mit 8-stelligen Nachkommastellen.
Im folgenden Beispiel wird die Variable positioniert auf die Zelle "A1" im Registerblatt "Tabelle1".
Der Rechenbefehl addiert "5" zum bisherigen Wert in der gleichen Tabelle.
Mit der folgenden Codezeile wird bestimmt, dass das Ergebnis in der gleichen Zelle wieder ausgegeben wird.
Sub Addieren() Dim Wert As Single With Sheets("Tabelle1") Wert = .Range("A1").Value Wert = Wert + 5 .Range("A1").Value = Wert End With End Sub
Mittels Änderung von "A1" kann man in der Zeile ".Range("A1").Value = Wert" die Zelle einstellen, in der das Ergebnis ausgegeben wird.
Nachfolgender Code bewirkt, dass das Ergebnis in einem anderen Tabellenblatt ausgegeben wird.
Sub Addieren() Dim Wert As Single With Sheets("Tabelle1") Wert = .Range("A1").Value Wert = Wert + 5 End With Sheets("Tabelle3").Range("A3").Value = Wert End Sub
Entscheidend ist hier das der "With"-Befehl beendet wird, bevor die Zelle für die Wert-Ausgabe festgelegt wird, da sich diese Zelle in einem anderen Tabellenblatt befindet und der With-Befehl sich auf das Tabellenblatt "Tabelle1" bezieht. Das Ergebnis soll in diesem Fall allerdings in dem Tabellenblatt "Tabelle3" und dort in der Zelle "A3" ausgegeben werden.
Nachfolgender Befehl addiert die Zahlen der Zellen "A1" und "B1" und gibt das Ergebnis in der Zelle "C1" wieder aus.
Sub TAddieren() Dim Wert As Single Dim Zahl1 As Single Dim Zahl2 As Single Dim Ergebnis As Single Zahl1 = Sheets("Tabelle1").Range("A1").Value Zahl2 = Sheets("Tabelle1").Range("B1").Value Ergebnis = Zahl1 + Zahl2 Sheets("Tabelle1").Range("C1").Value = Ergebnis End Sub
Der folgende Befehl addiert in einem festgelegten Tabellenblatt ("Tabelle1") die Zahl der Spalte 1 in der ersten Zeile (A1) mit der Zahl der Spalte 2 in der ersten Zeile (B1) und gibt den Wert in der Spalte (C1) aus. Diese Rechenoperation wird solange durchgeführt, bis die erste Zelle der 1. Spalte leer ist.
Sub TAddieren3() Dim Zahl1 As Single Dim Zahl2 As Single Dim Ergebnis As Single Dim a As Variant a = 1 Do Until Sheets("Tabelle1").Cells(a, 1).Value = "" Zahl1 = Sheets("Tabelle1").Cells(a, 1).Value Zahl2 = Sheets("Tabelle1").Cells(a, 2).Value Ergebnis = Zahl1 + Zahl2 Sheets("Tabelle1").Cells(a, 3).Value = Ergebnis a = a + 1 Loop End Sub