Supportnet / Forum / Tabellenkalkulation
VBA-Code funktioniert nicht richtig
Frage
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