Fehler in Pivot/Show Details;Errorhandling versagt

Hallo Herber Fans,
ich habe mir in einer Pivottabelle die Funktion Details ein-/ ausblenden über OnKey auf STRG + D gelegt und dazu auch ein Errorhandling in den Code eingebaut. Wenn ich nun mit der aktiven Zelle (Selection) auf dem PivotDatenFeld oder einem PageField positioniert bin, bekomme ich eine Errormeldung. (Die Methode Execute für das Objekt '_CommandBarButton' ist fehlgeschlagen). Wenn ich auf den genannten Feldern bin und die Funktion Detail einblenden über das Zell Kontextmenü aufrufen möchte, dann ist der entsprechende Button grau hinterlegt. D.h. nicht für dieses Feld vorgesehen. Also dachte ich, den Fehler über On Error Resume Next abfangen zu können. Dieses war leider nicht von Erfolg gekrönt. Ich dachte bisher immer, daß diese On Error Anweisung alles abfängt was so vorkommen kann. Das scheint leider nicht der Fall zu sein.
Wie kann ich den beschriebenen Fehler handhaben?
https://www.herber.de/bbs/user/54710.xls
Vielen Dank für eine zündende Idee.
Grüße, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Pivot_ShowDetailsOnOff() Dim cmdBarCntr As CommandBarControl Dim pvTable As PivotTable Dim intFehler As Variant Set pvTable = ActiveSheet.PivotTables(1) If Selection.Cells.Count > 1 Then Exit Sub On Error GoTo MoreInnerDetail intFehler = 1 With pvTable.PivotFields(Selection.Value) intFehler = 2 If .PivotItems(1).ShowDetail = False Then Selection.ShowDetail = True ElseIf .PivotItems(1).ShowDetail = True Then Selection.ShowDetail = False End If intFehler = 0 End With MoreInnerDetail: Select Case intFehler Case 1 ' MsgBox intFehler & ": " & Err.Number & " " & Err.Description MsgBox "Bitte Button mit Pivot-Feldname selektieren!" Case 2 ' MsgBox intFehler & ": " & Err.Number & " " & Err.Description Select Case Err.Number Case 13 MsgBox "Detail-Ein-/Ausblenden für dieses Pivot-Feld nicht möglich!" Case 1004 Set cmdBarCntr = Application.CommandBars.FindControl(ID:=462) cmdBarCntr.Execute Case Else MsgBox intFehler & ": " & Err.Number & " " & Err.Description End Select End Select End Sub

Hallo Andreas,
dann muss zusätzlich geprüft werden, ob die selektierte Zelle einen Seitenfeld-Namen enthält. Hoffe das klapt jetzt.
Gruß
Franz


Sub Pivot_ShowDetailsOnOff()
Dim cmdBarCntr As CommandBarControl
Dim pvTable As PivotTable
Dim intFehler As Variant
Dim objPVField As PivotField
Set pvTable = ActiveSheet.PivotTables(1)
If Selection.Cells.Count > 1 Then Exit Sub
On Error GoTo MoreInnerDetail
intFehler = 1
With pvTable.PivotFields(Selection.Value)
intFehler = 2
If .PivotItems(1).ShowDetail = False Then
Selection.ShowDetail = True
ElseIf .PivotItems(1).ShowDetail = True Then
Selection.ShowDetail = False
End If
intFehler = 0
End With
MoreInnerDetail:
Select Case intFehler
Case 1
'    MsgBox intFehler & ":  " & Err.Number & " " & Err.Description
MsgBox "Bitte Button mit Pivot-Feldname selektieren!"
Case 2
'    MsgBox intFehler & ":  " & Err.Number & " " & Err.Description
Select Case Err.Number
Case 13
MsgBox "Detail-Ein-/Ausblenden für dieses Pivot-Feld nicht möglich!"
Case 1004
For Each objPVField In pvTable.PageFields
If Selection.Value = objPVField.Name Then
MsgBox "Für Seitenfelder können keine Details ein-/ausgeblendet werden!"
Exit Sub
End If
Next
Set cmdBarCntr = Application.CommandBars.FindControl(ID:=462)
cmdBarCntr.Execute
Case Else
MsgBox intFehler & ":  " & Err.Number & " " & Err.Description
End Select
End Select
End Sub

Beliebteste Forumthreads (12 Monate)

Fehler in Pivot/Show Details;Errorhandling versagt

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler in Pivot/Show Details;Errorhandling versagt

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread