21.12.2022, 12:52
Habe eine größere Tabelle mit mehrere Spalten.
Aus dieser erzeuge ich per Makro einzelne Excel Dateien mit den Daten ich benötige und Gruppiere gleich einzelne Zeilen.
Diese werden dann in einem Ordner gespeichert. Das funktioniert soweit ganz gut.
Jetzt würde ich jedoch gern die ersten 8 Zeilen automatisch fixieren.
Kann man dies gleich mit in das Marko mit einbauen wie das gruppieren?
Habe da leider keinen Befehl gefunden.
Vielleicht hat ja jemand eine schlaue Idee.
Euch einen schönen Tag.
Aus dieser erzeuge ich per Makro einzelne Excel Dateien mit den Daten ich benötige und Gruppiere gleich einzelne Zeilen.
Diese werden dann in einem Ordner gespeichert. Das funktioniert soweit ganz gut.
Jetzt würde ich jedoch gern die ersten 8 Zeilen automatisch fixieren.
Kann man dies gleich mit in das Marko mit einbauen wie das gruppieren?
Habe da leider keinen Befehl gefunden.
Code:
Sub Komplett_Test()
Sheets.Add After:=ActiveSheet
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Abteilung 1"
Sheets("Übersicht").Select
Range("A1:P66").copy
Sheets("Abteilung 1").Select
Range("A1").Select
ActiveSheet.Paste
Columns("A:P").AutoFit
Cells(1, 1).Select
Rows("3:5").Group
Rows("13:19").GroupCode:
Dim wkb As Workbook
Dim wks As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ThisWorkbook
For Each wks In .Worksheets
wks.copy
Set wkb = ActiveWorkbook
wkb.SaveAs "C:\Users\Benutzer1\OneDrive - Abteilung\Desktop\Report\" & wks.Name & " Reporting " & Format(DateAdd("m", -1, Now), "MMM-YY") & ".xlsx", xlOpenXMLWorkbook
wkb.Close False
Set wkb = Nothing
Next
Set wks = Nothing
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubVielleicht hat ja jemand eine schlaue Idee.
Euch einen schönen Tag.
