Hallo Zusammen,
gibt es eine Möglichkeit mehrere Kontenblätter eines individuellen Stapels in Kanzlei Rechnungswesen so zu exportieren, dass je Konto ein eigenes Tabellenblatt in Excel erstellt wird?
Kenne nur die Möglichkeit, dass die einzelnen Konten des individuellen Stapels innerhalb eines Tabellenblattes in Excel untereinander angezeigt werden, was die weitere Bearbeitung erschwert.
Ziel wäre somit eine Excel Datei mit mehreren Konten, bei denen jedes Konto ein einzelnes Tabellenblatt darstellt.
Schon einmal vielen Dank!!
Gelöst! Gehe zu Lösung.
Ich bin mir nicht sicher, ob solch ein Export möglich ist.
Man kann höchstens die Kontoblätter einzeln ausgeben als Excel-Tabelle und dann mit STRG + A und Copy, Paste alles in einzelne Tabellenblätter eine Excel-Tabelle packen ...
Hallo,
ich verwende für diesen Zweck ein kurzes Makro. Dieses teilt die Arbeitsmappe auf.
Sub DatevKontoblattAufteilen()
Dim lLoop As Long, lLoopStop As Long
Dim rMove As Range, wsNew As Worksheet
ActiveSheet.Name = "Original" 'Original-Daten kopieren
ActiveSheet.Copy before:=Sheets(1) 'Name wird somit Original(2) lauten
'Daten über Excel-Funktion ausschneiden und in neues Blatt kopieren
Set rMove = ActiveSheet.UsedRange.Columns(1)
lLoopStop = WorksheetFunction.CountIf(rMove, "Datum")
For lLoop = 1 To lLoopStop
Set wsNew = Sheets.Add
rMove.Find("Datum", rMove.Cells(1, 1), xlValues, _
xlPart, , xlNext, False).CurrentRegion.Cut _
Destination:=wsNew.Cells(1, 1)
wsNew.UsedRange.Columns.AutoFit
wsNew.Move after:=Worksheets(Worksheets.Count)
Next lLoop
'Arbeitsblatt für Aufteilung entfernen
Application.DisplayAlerts = False
Sheets("Original (2)").Delete
Application.DisplayAlerts = True
End Sub
Müsste ggf. noch für die eigenen Zwecke angepasst werden, da nur für eigene Verwendung eingesetzt bisher.
Grundsätzlich empfehle ich die Verwendung der personal.xlsb für öfters verwendete Makros.
siehe z.B. hier:
https://www.excel-insights.de/excel-vba-makros/persoenliche-makroarbeitsmappe-personal-xlsb
Vielen vielen Dank für die Antwort und den VBA-Code! Vor allem die Einrichtung des dateienübergreifenden Makros als personal.xlsb war mir nicht bekannt.
Ist eine sehr schöne Sache.
Nochmals Danke!
... die personal.* -Datei gab es in Excel schon immer, schon seit ich denken kann, also schon im vorherigen Jahrtausend 😉