Seitenformate auf neuem Arbeitsblatt übernehmen
Roberto
das nachfolgende Makro sortiert in der Mastertabelle die Daten mit Autofilter und ertsellt für jedes Kriterium in Spalte A ein neues Arbeitsblatt.
Nun soll aber jedes Abeitsblatt das gleiche Format(alle Einstellungen) wie die Mastertabelle haben. Ich meine alles was unter Seite einrichten ist(z.B Querformat, Wiederholungszeilen) soll auch in den neu erstellten Arbeitsblättern von der Mastertabelle übernommen werden
wie kann ich das in das Makro einbauen?
Vielen Dankfür Eure Hilfe :-)
Roberto
https://www.herber.de/bbs/user/5296.xls
Sub autofilter_splitt()
Dim rng As Range, rngCur As Range
Dim lngRow As Long, aktcell As String
Dim head As String, newrng As Range, newsheet As String
Application.ScreenUpdating = False
aktcell = ActiveCell.Address
head = ActiveCell.Offset(-1).Address
Set rngCur = Range(head).CurrentRegion
rngCur.Sort _
key1:=Range(aktcell), _
order1:=xlAscending, _
header:=xlYes
lngRow = 2
Do Until IsEmpty(rngCur.Cells(lngRow, 1))
If rngCur.Cells(lngRow, 1) <> rngCur.Cells(lngRow - 1, 1) Then
rngCur.AutoFilter _
field:=1, _
Criteria1:=rngCur.Cells(lngRow, 1)
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = rngCur.Cells(lngRow, 1)
newsheet = ActiveSheet.Name
Worksheets(1).Select
Range("a1").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets(newsheet).Select
ActiveSheet.Paste
Range("a1").Select
End If
lngRow = lngRow + 1
Loop
Worksheets(1).Select
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
Application.CutCopyMode = False
Range("a1").Select
End Sub