Sub ListeLeeren()
Dim x As String
Dim erg As Integer
Dim i As Integer
x = ActiveSheet.Cells(1, "A").Value
For i = 0 To Tabelle1.Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i + 1, "A").Value = x Then
erg = erg + Cells(i + 1, "B").Value
Else
Cells(i, "B").Value = erg
Cells(i, "C").Value = "X"
erg = Cells(i + 1, "B").Value
x = Cells(i + 1, "A").Value
End If
Next
Alle Zeilen die in Spalte C nun kein X haben können ja gelöscht werden, da nur die mit einem X aufsummiert wurden.
Aber wie lösche ich alle Zeilen die kein X in Spalte C haben?
Dim y As Integer