Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Neues Sheet

Neues Sheet
Albert
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Neues Sheet
18.11.2011 13:42:25
Rudi
Hallo,
arbeite mit einer Objekt-Variablen.
Set wks = 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
wks.AutoFilter.Sort.SortFields.Clear
wks.AutoFilter.Sort.SortFields.Add Key:= _
Range("C4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With wks.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("C:C").Select
Selection.Style = "Currency"
Range("A1").Select
Gruß
Rudi
Anzeige
AW: Neues Sheet
18.11.2011 13:50:40
Albert
Hallo Rudi,
ich ziehe meinen Hut.
Dankeschön. Schönes Wochenende.
Albert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige