von Peter Feustel habe ich ja folgendes was auch super fuktioniert ! Danke nochmal Peter.
Public Sub Zusammenfassen()
Dim lZeile As Long
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen
For lZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Range("B" & lZeile).Value
Nur hatte ich nicht bedacht das es auch mehrere negative geben kann und die ebenso zusammegefasst werden muessen ? Ich habe zwar schon probiert den vorhanden Code umzustricken, abe mehr als die kleiner 0 ,, naja.
Hier nocheinmal wie es aussehen soll. ( Spalte A : Titel und Spalte B: Wert)
vorher:
33 Geschichten für Erstleser -3
33 Geschichten für Erstleser 5
33 Geschichten für Erstleser 3
33 Geschichten für Erstleser -2
ergebnis:
33 Geschichten für Erstleser -5
33 Geschichten für Erstleser 8