AW: Aus CSV-Fileimport direkt Pivot-Table erstellen
23.02.2010 15:38:22
PM
Wenn ichs nun über den folgenden Code laufen lasse, so funzt es eigentlich genau so wie ich es möchte:
Sub Makro4()
On Error Resume Next
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Test2!A1:AN65536").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable5", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable5").PivotFields("PER_Service_Bereich")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
"PivotTable5").PivotFields("PER_Service_Bereich"), _
"Anzahl von PER_Service_Bereich", xlCount
Range("A3").Select
Makro5
End Sub
Sub Makro5()
On Error Resume Next
Range("A3").Select
With ActiveSheet.PivotTables("PivotTable5").PivotFields("PER_Service_Bereich")
.Orientation = xlRowField
.Position = 1
End With
End Sub
Nun sollte aber zum Makro - Start noch ein Dialogfenster geöffnet werden, aus welchem die CSV ausgewählt werden soll, anhand dessen dieses Makro dann die Pivot-Table erstellen soll.
(denn die Datei ist nicht jeden Monat am selben Ort abgespeichert)
wie müsste ich meinen "Murks-Code" entsprechend anpassen ?