Code anpassen / Fehler
PMa
habe mir (auf Grund von Hilfen aus dem Forum hier, und mittels Makro-Recorder) folgenden Code aufgezeichnet, der mir (sofern ich diesen in eine CSV-Datei kopiere und lauffen lasse) aus einer CSV-Datei eine Pivot-Table erstellt:
Sub Schaltfläche2_BeiKlick()
'Dim Datei_Open
'Datei_Open = Application.GetOpenFilename(Filefilter:="CSV Datei(*.csv),*.csv", Title:="Bitte _
Datendatei wählen")
On Error Resume Next
'Workbooks.Open Datei_Open
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Neu!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
Nun aber mein Problem, meine Frage:
Wie muss ich den Code anpassen / ändern, dass zu Beginn des Makros zuerst der User nach der gewünschten Datei gefragt wird? - Ich habe das ganz zuoberst im Code mal versucht über GetOpenFile name.
Den Dateinamen versuchte ich dann mittels Variable an den Makro-Code weiterzugeben. Aber ich bin da wirklich etwas überfordert.
Wie also könnte ich zu Makrostart den gewünschten Dateinamen ermitteln, die Datei dann öffnen und die Pivot-Table (anhand meines Codes) dann in der aktiven Datei erstellen ?
Danke schon mal herzlich für Eure Hilfe !!!!