Clever-Excel-Forum

Halllo,
wie kann ich den den Teil  (A2020-6) meines Makros umwandeln dass er für alle Dateinamen funktioniert?

Sub Makro3()
'
' Makro3 Makro
'
' Tastenkombination: Strg+n
'
    Sheets("A2020-6").Select
    Sheets("A2020-6").Name = "Mappe1"
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Mappe1!R1C82:R34C87", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Tabelle1!R1C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("Tabelle1").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Material")

Vielen Dank
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Dicke")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Stückpreis"), "Summe von Stückpreis", xlSum
    Range("C2").Select
End Sub"

Hallo Michi,

das: A2020-6 ist offenbar der Name eines Tabellenblattes, nicht einer Datei.

Hallöchen,

und Du kannst nicht alle Blätter gleich nennen falls Dir so was vorschwebt ...
Sheets("A2020-6").Name = "Mappe1"
Sheets("A2020-7").Name = "Mappe1"
Sheets("A2020-8").Name = "Mappe1"