AW: Gesamte Tabelle markieren - ohne letzte Zeile
14.01.2008 16:18:00
memoli
Hallo Daniel,
ich erhalte immer eine Fehlermeldung:
Compile error: Argument not optional
argument not optional
Es knallt genau bei --> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Zellbereich).CreatePivotTable
Hinten bei .CreatePivotTable
Mein Coding wo ich das einfüge (mit Makrorecorder aufgnommen) sieht so aus:
[Hinweis: Im Arbeitsblatt Tabelle1 ist die Tabelle beginnend bei H6 und in einem zweiten Arbeitsblatt mit dem Namen "Konzern" ist die Pivottabelle]
Sub Pivotdaten_aktualisieren()
' Pivotdaten_aktualisieren Makro
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
' ActiveWorkbook.Names("Druckbereich").Delete
Range("H6").Select
Selection.End(xlUp).Select
Range("I6").Select
ActiveCell.FormulaR1C1 = "Titel1"
Range("K6").Select
ActiveCell.FormulaR1C1 = "Titel2"
Range("M6").Select
ActiveCell.FormulaR1C1 = "Titel3!"
Range("H6").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Names.Add Name:="pivotdaten", RefersToR1C1:=Selection
Sheets("Konzern").Select
Range("A3").Select
' ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("A44").Select
Application.ScreenUpdating = True
End Sub
Viele Grüsse,
Wo genau muss man das denn hinmachen?
Grüsse,
Memoli