die Beispieltabelle wurde aus einer Pivot-Tabelle herauskopiert
https://www.herber.de/bbs/user/114314.xlsx
In den gelb markierten Zeilen sind die Summen der darunter aufgeführten Einzelbeträge bis zur nächsten gelben Zeile gelistet.
Nun suche ich nach einer Möglichkeit die gelb markierten Zeilen mittels einer Do While ... Loop Schleife in Spalte A zu ermitteln und auszublenden (das Löschen der Zeilen ist in der Pivot-Tabelle nicht möglich), da diese zusätzlichen Zeilen das Lesen der Pivot-Tabelle erschweren.
Als Kriterium für das Ausblenden hatte ich mir folgendes überlegt:
If Range("A3").Value = Format(Range("A3").Value, "dd.mm.yyyy") Then
ActiveCell.EntireRow.Hidden = True
End If
funktioniert leider nichtsieht jemand den Fehler?
der Code muss in einer Pivot-Tabelle anwendbar sein!
mfG
reiner