ich habe mich nun wieder durch einige Foren gekämpft und min. 5 verschiedene Makros (meine und andere) getest, komme aber immer am selben Fehler raus.
Laufzeitfehler 13 oder 424 - meine Variablen sind leer oder unverträglich.
Pivotitem.visible ist da mein Hauptproblem.
Genauer gesagt möchte ich die Filter zum Steuern meiner Pivottabelle in einer Textbox (zur Not Zelle) anzeigen lassen.
Sowohl für ein PivotItem wie auch auch für mehrere ausgewählte Elemente.
Meine Aufgabe ist es, die Filter (besonders wenn mehrere Elemente ausgewählt werden) nochmals deutlich sichtbar für andere Nutzer auf dem Tabellenblatt unterzubringen.
Hat da jemand einen Vorschlag, gern auf "bessere" Weise als meine :D?
Hier eines meiner Makros als Beispiel:
Dim pvtfeld As PivotField
Dim pvtitem As PivotItem
Set pvtfeld = Target.PageFields("Ort (Dokument)")
If pvtfeld.EnableMultiplePageItems = True Then
If pvtfeld.LabelRange.Offset(0, 1).Text = "(Mehrere Elemente)" Then
For Each pvtitem In pvtfeld.PivotItems
If pvtitem.Value = True Then
If Me.OLEObjects("TextBox1").Object.Value = "" Then
Me.OLEObjects("TextBox1").Object.Value = pvItem.Value
Else
Me.OLEObjects("TextBox1").Object.Value =
Me.OLEObjects("TextBox1").Object.Value & "; " & pvItem.Value
End If
End If
Next
End If
End If
In dem Fall gibt er mir ein unsinniges Value in die Textbox und steigt dann mit Debug auf pvtitem.Value "Typ unverträglich..." aus.
Vielen Dank schon mal für das Lesen und Eure Zeit!