Frage : 2 Gelenk-Tabellen in VBA

Hi
I haben ein Makro, das unter anderem 2 Gelenktabellen herstellt.  Die Quelldaten für jede sind auf verschiedenen Vorsprüngen und die resultierenden Tabellen sollten auf verschiedenen Vorsprüngen sein.  Ich betrog und benutzte den Makrorecorder, um den Code zu erhalten, dann kopiert ihm mit etwas Änderungen für das zweite one.

The erstes man ist adaequat, aber zweite gibt „Laufzeitfehler: 5. Unzulässiger Prozeduraufruf oder Argument“.  Ich bin nicht warum sicher.  Ich dachte zuerst dass es dass sein konnte, die Kopie des Codes, es versuchte, alle zu nennen PivotTable1, also änderte ich die Sekunde zu PivotTable2.  Alles anderes ist das selbe anders als mein Ändern, wo die Quelldaten sind- und wo der Tabellenbestimmungsort is.

I morgens 500 Punkte für ein schnelles solution.

Thanks
Sarah
 zusprechend 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

Sub CF_PivotTable ()

'EINE GELENK-TABELLE VON DEN DISKONT-RECHNUNGEN NICHT HERSTELLEN



    Sheets.Add
    ActiveSheet.Name = „Zusammenfassung“
    
    Blätter („zusammenfassende Liste - alle öffnen Einzelteile b“). Auserwählt
    Strecke („A1“). Auserwählt
    Selection.End (xlDown). Auserwählt
    ActiveCell.Offset (0, 0). Auserwählt
    lRow = ActiveCell.Row

    
    Strecke („A1“). Auserwählt
    Strecke (Vorwähler, Selection.End (xlDown)). Auserwählt
    Strecke (Vorwähler, Selection.End (xlToRight)). Auserwählt
    ActiveWorkbook.PivotCaches.Create (SourceType: =xlDatabase, SourceData: = _
        „Zusammenfassende Liste - alle öffnen Einzelteile b! R1C1: R“ u. lRow u. „C11“, Version: = _
        xlPivotTableVersion10) .CreatePivotTable TableDestination: = " Zusammenfassung! R1C1 ", _
        TableName: = " PivotTable1 ", DefaultVersion: =xlPivotTableVersion10
    Blätter („Zusammenfassung“). Auserwählt
    Zellen (1, 1).Select
    Mit ActiveSheet.PivotTables („PivotTable1“) .PivotFields („passendes Nettopapierlösekorotron“)
        . Lagebestimmung = xlRowField
        . Position = 1
    Ende mit
    ActiveSheet.PivotTables („PivotTable1“) .AddDataField ActiveSheet.PivotTables (_
        „PivotTable1“) .PivotFields („Menge im Einheimischen cur."), _
        „Summe der Menge in der lokalen Kanaille. “, xlSum
    Mit ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Status“)
        . Lagebestimmung = xlColumnField
        . Position = 1
    Ende mit
    ActiveWorkbook.ShowPivotTableFieldList = falsch
    ActiveCell.Offset (0, 1).Columns („A: C“) .EntireColumn.Select
    Selection.Style = „Komma“
    ActiveCell.Offset (1, 3).Range („A1“). Auserwählt
    
        Sheets.Add

    
'EINE GELENK-TABELLE VON DEN DISKONT-RECHNUNGEN HERSTELLEN


    ActiveSheet.Name = „Diskont-Zusammenfassung“
    
    Blätter („Diskontliste - alle öffnen Einzelteile“). Auserwählt
    Reihen („1: 1“). Auserwählt
    Selection.Insert Verschiebung: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
    Strecke („A1“). Auserwählt
    Blätter („zusammenfassende Liste - alle öffnen Einzelteile b“). Auserwählt
    Reihen („1: 1“). Auserwählt
    Selection.Copy
    Blätter („Diskontliste - alle öffnen Einzelteile“). Auserwählt
    ActiveSheet.Paste
    Strecke („A1“). Auserwählt
    
    
    Blätter („Diskontliste - alle öffnen Einzelteile“). Auserwählt
    Strecke („A1“). Auserwählt
    Selection.End (xlDown). Auserwählt
    ActiveCell.Offset (0, 0). Auserwählt
    lRow = ActiveCell.Row

    
    Strecke („A1“). Auserwählt
    Strecke (Vorwähler, Selection.End (xlDown)). Auserwählt
    Strecke (Vorwähler, Selection.End (xlToRight)). Auserwählt
    ActiveWorkbook.PivotCaches.Create (SourceType: =xlDatabase, SourceData: = _
        „Diskontliste - alle öffnen Einzelteile! R1C1: R“ u. lRow u. „C11“, Version: = _
        xlPivotTableVersion10) .CreatePivotTable TableDestination: = " Diskont-Zusammenfassung! R1C1 ", _
        TableName: = " PivotTable2 ", DefaultVersion: =xlPivotTableVersion10
        
   
    Blätter („Diskont-Zusammenfassung“). Auserwählt
    Zellen (1, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = richten aus
    Mit ActiveSheet.PivotTables („PivotTable1“) .PivotFields („passendes Nettopapierlösekorotron“)
        . Lagebestimmung = xlRowField
        . Position = 1
    Ende mit
    ActiveSheet.PivotTables („PivotTable1“) .AddDataField ActiveSheet.PivotTables (_
        „PivotTable1“) .PivotFields („Menge im Einheimischen cur."), _
        „Summe der Menge in der lokalen Kanaille. “, xlSum
    Mit ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Status“)
        . Lagebestimmung = xlColumnField
        . Position = 1
    Ende mit
    ActiveWorkbook.ShowPivotTableFieldList = falsch
    Spalten („B: D“). Auserwählt
    Selection.Style = „Komma“
    Strecke („E3“). Auserwählt
    


Enden-Unterseeboot

Antwort : 2 Gelenk-Tabellen in VBA

Auf Linie 74 Änderung das TableDestination Argument an:

TableDestination: = " „Diskont-Zusammenfassung“! R1C1“
Weitere Lösungen  
 
programming4us programming4us