ChatGPT-Thema: Summierung

Schlüsselwortsuche im Archiv: Summierung, Addition

Excel / VBA deutsch: Wenn der Wert der jeweiligen Zelle in Spalte A von dem der darüberliegenden Zelle abweicht, soll eine Addition eingefügt werden.
In VBA könnten Sie etwas in der Art schreiben:

Sub Addition_einfügen()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
Cells(i, 1).Offset(0, 1).Value = "Addition"
End If
Next i
End Sub


Dieser Code würde jede Zelle in Spalte A von oben nach unten durchlaufen und prüfen, ob der Wert der Zelle von dem der darüberliegenden Zelle abweicht. Wenn dies der Fall ist, wird in der Zelle neben der aktuellen Zelle (also in Spalte B) der Wert "Addition" eingefügt.

Um dieses Makro auszuführen, müssen Sie es zunächst in die Developer-Konsole von Excel eingeben und dann auf den "Ausführen"-Button klicken. Sie können auch eine Schaltfläche erstellen, die das Makro ausführt, indem Sie auf die Registerkarte "Entwicklertools" gehen und dann auf "Steuerelemente einfügen" und "Formularsteuerelemente" auswählen. Dann können Sie eine Schaltfläche auf das Arbeitsblatt ziehen und das Makro zuweisen, indem Sie auf die Schaltfläche klicken und im "Eigenschaften"-Fenster das Makro auswählen.

Ich hoffe, das hilft! Lassen Sie mich wissen, wenn Sie weitere Fragen haben.