Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: