Neues Sheet
Albert
ich kopiere Daten aus einer Pivottabelle via Makro in ein neues Sheet.
Wie könnte der Code aussehen, wenn sich die Nummerierung des Sheets fortsetzt?
Schon mal vorab herzlichen Dank für eure Hilfe.
Albert
Sheets.Add After:=Sheets(Sheets.Count)
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("5:5").Select
ActiveWindow.FreezePanes = True
Range("A4:C4").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWorkbook.Worksheets("Tabelle4").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle4").AutoFilter.Sort.SortFields.Add Key:= _
Range("C4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle4").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("C:C").Select
Selection.Style = "Currency"
Range("A1").Select