Pivo Umbenenen
07.02.2006 10:29:28
Paul
folgendes Makro erstellt ein Pivosheet. Ich wuerde aber gerne den Name diese Sheets abaendern. Das Makro sieht wie foltg aus:
Sub DATA()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"''!R1C1:R3596C11").CreatePivotTable _
TableDestination:="", TableName:="PivotTable3", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable3").AddFields RowFields:="Plan Activare", _
ColumnFields:="Nume Dealer"
ActiveSheet.PivotTables("PivotTable3").PivotFields("Plan Activare"). _
Orientation = xlDataField
Cells.Select
Cells.EntireColumn.AutoFit
Range("C8").Select
ActiveWorkbook.ShowPivotTableFieldList = False
'Sheets.Add After:=Sheets(Worksheets.Count), Type:=xlWorksheet
'Sheets(Worksheets.Count).Name = Format(Now(), "h-mm-ss AM/PM -- DD-MMM-YYYY") & " B"
End Sub
Der Name des Pivosheets soll wie unten angegeben sein, also "h-mm-ss AM/PM -- DD-MMM-YYYY") & " B". Wie kann man das abaendern?
Paul