|
Hallo liebe Community,
Ich muss gestehen, so langsam bin ich ziemlich ratlos...
Momentan bin ich dabei einen nervigen, zeitaufwendigen Vorgang per VBA zu lösen.
Zur Erklärung:
Es handelt sich um eine Kosten und Leistungsrechnung die ca. 70 Tabellenblätter umfasst und bei der man jeden Monat die aktuellen Zahlen eintragen muss.
Dafür muss man jedes Tabelolenblatt aufrufen und den aktuellen Monat ausgrupieren damit dieser angezeigt wird.
Sub Test()
Dim ws As Worksheet, ws2 As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
ws.Columns("E:F").Select
Next
'Columns("A:DT").Select
'Selection.Columns.Group
'Columns("A:C").Select
'Selection.Columns.Ungroup
'Columns("Y:AG").Select
'Selection.Columns.Ungroup
End Sub
Die ganzen einzelnen Teile des Codes an sich funktionieren, jedoch bekomme ich einen Laufzeitfehler 1004 : "Die Select-Methode konnte nicht ausgeführt werden."
Das Makro sollte alle Tabellenblätter durchlaufen und in jedem Blatt die Spalte des jeweiligen Monats ausgrupieren (also auswählen und dann augrupieren).
Ich freue mich über jegliche Hilfe und/oder Denkanstöße
Gruß Jonas
|