Hallo an die Profis,

nachstehender VBA-Code zum löschen alter Daten in den Dropdown-Felder einer Pivottabelle funktioniert nicht richtig.
Zeigt im Fehler-Code 400 an.

Kann vielleicht jemand mal schauen, vielen herzlichen Dank vorab.

Public Sub LöschenDaten()
Dim intZähler As Integer, intAnzSpalten As Integer

Dim objPivot As PivotTable

Dim arrSpalte 'Array für zu bearbeitende Spalten

Dim objZeile As PivotItem

Do

On Error Resume Next

Set objPivot = ActiveCell.PivotTable

If Err Then

MsgBox ("Zellzeiger muss sich in der betreffenden Pivot-Tabelle befinden!")

On Error GoTo 0

Exit Do

End If

On Error GoTo 0

Set arrSpalte = objPivot.RowFields

intZähler = 1

intAnzSpalten = arrSpalte.Count



For intZähler = 1 To intAnzSpalten 'für alle Pivot-Felder

For Each objZeile In objPivot.PivotFields(arrSpalte(intZähler).Value).PivotItems

If objZeile.RecordCount = 0 Then objZeile.Delete 'wenn leerer DS dann löschen

Next

Next



Exit Do

Loop
End Sub


Viele Grüße und nochmals danke, meikel