14.06.2019, 09:47
Hallo zusammen,
ich erhalten ständig o. g. Fehler wenn ich zum Code Teil Set pf = pt.PivotFields("line_group_name") komme. Soweit ich weiß tritt der Fehler auf, falls das pivot field line_group_name nicht existiert, dass tut es aber. Hat jemand eine Idee?
Vielen Dank Vorab!
Alex
ich erhalten ständig o. g. Fehler wenn ich zum Code Teil Set pf = pt.PivotFields("line_group_name") komme. Soweit ich weiß tritt der Fehler auf, falls das pivot field line_group_name nicht existiert, dass tut es aber. Hat jemand eine Idee?
Vielen Dank Vorab!
Alex
Code:
Private Sub CommandButton1_Click()
'--- count loop ends ----------------------
Dim I1_end As Variant
I1_end = ListBox1.ListCount
Dim I2_end As Variant 'count table end tb_customer_selection_table
I2_end = ws_copy_table.ListObjects("tb_customer_selection").Range.Rows.count + 1
'--- count loops ----------------------------
Dim I1 As Variant 'count loop listbox
Dim I2 As Variant 'count tb_customer_selection_table
Dim ws_name As String
Dim pt_name As String
Dim line_group_name As String
Dim pt As PivotTable
Dim pf As PivotField
I1 = 0
Do Until I1 = I1_end
If ListBox1.Selected(I1) = True Then
I2 = 2
Do Until I2 = I2_end
ws_name = ws_copy_table.ListObjects("tb_customer_selection").Range.Cells(I2, 1).Value
pt_name = ws_copy_table.ListObjects("tb_customer_selection").Range.Cells(I2, 2).Value
Set pt = Sheets(ws_name).PivotTables(pt_name)
[b][color=#ff3333]Set pf = pt.PivotFields("line_group_name")[/color][/b]
pf.PivotItems(ListBox1.List(I1, 0)).Visible = False
I2 = I2 + 1
Loop
End If
I1 = I1 + 1
Loop
Unload Me
ws_sum.Activate
End Sub