Makro für Pivot in Englisch
05.12.2007 09:15:53
Torben
ich benötige dringend Eure Hilfe. Für meine englischen Kollegen habe ich ein Makro geschrieben, das aus vorhandenen Daten eine Pivot-Tabelle ertsellen soll. Leider habe ich nur ein deutsches Excel. In der deutschen Umgebung funktioniert das Makro einwandfrei, nur in dem englischen Excel nicht.
Der Code ist folgendermaßen:
AnzahlZeilen = ActiveSheet.UsedRange.Rows.Count 'Anzahl der importierten Datensätze
AnzahlSpalten = Range("IV1").End(xlToLeft).Column 'Anzahl benötigter Spalten
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R1C1:R" & AnzahlZeilen & "C" & AnzahlSpalten & "").CreatePivotTable TableDestination:="", TableName:= "PivotTable2"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable2").SmallGrid = False
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Analysis").Range("A3")
ActiveChart.Location Where:=xlLocationAsNewSheet
Hier bricht er dann immer ab!
Bitte helft ir, wo der Fehler im Code ist.
Vielen Dank,
Torben