Makro läuft nicht
PMa
Etwas weiter unten hatte ich diesbezüglich schon mal ne Frage gestellt, allerdings keine Lösung erhalten.
Nun hab ich meinen Makrocode wie folgt umgebaut.
Sinn und Zweck dieses Codes soll sein, eine Tabelle zu öffnen und mittels den dort enthaltenen Daten eine PivotTable zu erstellen:
Option Explicit
Sub Schaltfläche2_BeiKlick()
On Error Resume Next
Dim Datei_Open As String
Datei_Open = Application.GetOpenFilename(Filefilter:="CSV Datei(*.csv),*.csv", Title:=" _
Bitte Datendatei wählen")
Select Case Datei_Open
Case False
MsgBox "Abbruch"
Exit Sub
End Select
Workbooks.Open Datei_Open
PivotTable_create
End Sub
Sub PivotTable_create()
Dim tabellenblatt
Dim selektion
tabellenblatt = ActiveSheet.Name
selektion = tabellenblatt & "!" & "A1:AN65536"
Worksheets(tabellenblatt).Activate
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
selektion).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
End Sub
Die Tabelle wird richtig geöffnet, doch dann wird Makro (ohne Fehlermeldung) hier bei dieser Zeile irgendwo beendet. (es wird an der Tabelle also nichts gemacht)
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
selektion).CreatePivotTable TableDestination:="", TableName:= _
"PivotTable5", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
Wo liegt der Hund begraben ? - Ich bin echt am verzweifeln und finde den Fehler nicht.
Hoffentlich könnt ihr Profis mir da helfen !