ERLEDIGT
NEIN
NEIN
ANTWORTEN
2
2
ZUGRIFFE
1750
1750
EMPFEHLEN
-
20.01.12 13:54 #1
Mitglied Brokat
- Registriert seit
- Jan 2002
- Beiträge
- 422
Moin,
ich habe eine Makroaufzeichnung gemacht, um zu sehen wie eine Pivot-Tabelle per VBA erzeugt wird.
Heraus kam z.B. u.a dies:
Code :1 2 3 4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "errorcode_data!R1C1:R746C1", Version:=xlPivotTableVersion12). _ CreatePivotTable TableDestination:="Customer Spread!R14C1", TableName:= _ "PivotTable4", DefaultVersion:=xlPivotTableVersion12
Wenn ich mein Makro ausführe, bleibt er hier gleich hängen und spuckt einen Laufzeitfehler #5. Wie kann das sein? Hat jemand eine Idee? Danke!
-
20.01.12 14:17 #2
Gibts zu #5 auch ein Text? oder sollen wir selber Goggeln was das für ein Text ist.
Ansonsten mal den Error-Text erzwingen. Wenn due deine funktion mal so strukturierst, dann hast du nachher den Fehlertext im Direktfenster und kannst ihn herauskopieren.
Code vb:1 2 3 4 5 6 7 8 9
Public Sub [mySub]() On Error GoTo Err_Handler [myCode] Exit Sub Err_Handler: Debug.Print Err.Description End Sub
---------------------------------------------------------------------------------------------------
item: Ich habe es mir aus gesundheitlichen Gründen abgewöhnt unformatierten Code zu lesen (Auch SQL-Statements kann man formatieren!)
item: Tutorial: [PHP][MySQL] Debug Queries
item: Schreibt mir keine PN mit Fragen die im Forum beantwortet werden können - ich mache kein persönliches coaching
item: Bitte zur besseren Lesbarkeit PHP-Code in [PHP]...[/PHP], SQL in [SQL]...[/SQL], Visual Basic in [VB]...[/VB] etc. schreiben
-
20.01.12 14:46 #3
Mitglied Brokat
- Registriert seit
- Jan 2002
- Beiträge
- 422
Sorry. Es sagt: "Ungültiger Prozeduraufruf oder ungültiges Argument."
Ich glaube es liegt daran, dass "Customer Spread" ein Leerzeichen hat?
Ich habe aber nochmal eine Frage.
Und zwar sieht mein Code jetzt so aus:
Code :1 2 3 4 5 6 7 8 9 10 11 12
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "errorcode_data!R1C1:R746C1", Version:=xlPivotTableVersion12). _ CreatePivotTable TableDestination:="CustomerSpread!R14C1", TableName:= _ "PivotTable4", DefaultVersion:=xlPivotTableVersion12 Sheets("CustomerSpread").Select Cells(14, 1).Select ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _ "PivotTable4").PivotFields("errorcode"), "Anzahl von errorcode", xlCount With ActiveSheet.PivotTables("PivotTable4").PivotFields("errorcode") .Orientation = xlRowField .Position = 1 End With
Ich möchte gerne, dass die Pivot-Tabelle links den jeweiligen Errorcode anzeigt und rechts die Anzahl, wie häufig der Errrocode vorgekommen ist. Dieses Makro habe ich so aufgenommen. Wenn ich es nun aber selber laufen lasse, zeigt er mir immer nur die Gesamtanzahl an aber nicht die Beschreibung.
Warum ist das so? Überschreibt VBA da irgendwas und warum wird es dann so aufgenommen?Geändert von sheel (20.01.12 um 19:11 Uhr) Grund: Triple
Ähnliche Themen
-
[Excel] PivotTabelle - alle Pivotelemente auswählen
Von Trash im Forum Visual Basic 6.0Antworten: 0Letzter Beitrag: 17.01.11, 17:35 -
Excel VBA: Pivottabelle dynamisch erzeugen
Von ThompB im Forum Office-AnwendungenAntworten: 0Letzter Beitrag: 06.10.10, 14:24 -
Excel VBA: Pivottabelle dynamisch erzeugen
Von ThompB im Forum Office-AnwendungenAntworten: 0Letzter Beitrag: 06.10.10, 14:20 -
Excel 2007 Zusatzberechnungen zu PivotTabelle dynamisch halten
Von tlauter im Forum Visual Basic 6.0Antworten: 1Letzter Beitrag: 02.06.08, 15:45 -
Diagramm aus Pivottabelle erstellen
Von brinsche im Forum Visual Basic 6.0Antworten: 3Letzter Beitrag: 20.06.05, 12:26




Zitieren

Login