Excel Datei Splitten

Hallo liebes Forum
Vielleicht könnt' ihr mir da weiterhelfen. Ich stehe vor dem Problem, dass ich eine Excel Datei in verschiedene Excel Dateien splitten muss. Nun habe ich bereits VBA Varianten gesehen, die eine einzelne Tabelle in verschiedene Dateien splittet; was ich jedoch suche, ist, dass alle Tabellen in allen Dateien vorhanden sind, jedoch nur mit den relevanten Daten.
Konkret: In der Tabelle "Data" befinden sich Bestelldaten pro Kunde. Nun soll für jeder Kunde eine eigene Datei erstellt werden, wobei die Tabellen (Data, Client, Summary) beinhalten soll. In der Tabelle Client sollte dann die Kundeninfo, z.B. A (Zelle B4) drin stehen und in der Tabelle Daten sollten dann nur die Daten des Kunden A stehen. Auch die Summary Tabelle mit den Berechnungen sollte so bestehen bleiben.
Beispiel:
https://www.herber.de/bbs/user/149253.xlsx
Ist dies machbar?
Vielen Dank
Mente

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim KundeColl As Collection Dim QWb As Workbook 'Quell-WB Dim ZWb As Workbook 'Ziel_WB Const Pfad = "C:\temp\" Sub Dupliziere() Dim E Set QWb = Workbooks("149253.xlsx") Kundeliste_aufbauen For Each E In KundeColl QWb.SaveCopyAs Pfad & "Kopie_" & E & ".xlsx" Set ZWb = Workbooks.Open(Pfad & "Kopie_" & E & ".xlsx") AndereKunden_löschen E ZWb.Close True Next End Sub Private Sub Kundeliste_aufbauen() Dim Z Set KundeColl = New Collection On Error Resume Next With QWb.Worksheets("Data") For Each Z In .Range(.Range("A6"), .Range("A99999").End(xlUp)).Cells KundeColl.Add Trim(Z.Value), LCase(Trim(Z.Value)) Next End With End Sub Private Sub AndereKunden_löschen(ByVal Kunde As String) Dim i Application.EnableEvents = False With ZWb.Worksheets("Data") For i = .Range("A99999").End(xlUp).Row To 6 Step -1 If LCase(Trim(.Cells(i, 1).Value)) LCase(Trim(Kunde)) Then .Cells(i, 1).EntireRow.Delete Shift:=xlUp End If Next End With Application.EnableEvents = True End Sub

Hallo Mente,
in der Tat habe ich eine einfache Methode, die die Zeit als nicht kritisch beachte, weil ich es als ausreichend gesehen hatte, solang Du die Aufgabe nur einmal am Tag machst (und weil es nur so in ein paar Minuten und 30 Zeilen Code zu schaffen war).
Man sollte vor der Pause oder Feierabend anstossen. Oder im Hintergrund laufen lassen.
Wenn Du das mehrmals am Tag und auf die gesamte Datenmenge, ist nicht die Performance der Code in Frage zu stellen, sondern warum es unbedingt notwendig dieses Prozess immer wieder zu machen (ich habe schon bei der einmaligen Lauf mich zurückgehalten, dass diese Daten-Behandlung nicht besonders glücklich ist).
Seit ein paar Jahren (ca. 70) gibt es den Konzept Model-View-Controller. Es besagt, dass Datenhaltung (Model), deren Präsentation (View) und deren Verarbeitung (Controller) voneinander getrennt sein sollten. Also alle Daten zusammen (was eigentlich dein Startzustand ist). Anzeige durch eine Abfrage (=Filter, bzw Controller) und das Ergebnis mit einem "Schön-Macher" dartstellen (View).
Die Trennung der Daten in kleine Einheiten um innerhalb diesen Einheiten den vollständigen Erscheinungsbild zu gewähren, widerspricht komplett diese Idee.
Die MVC-Denkweise ist die Grundlage für Datenbank, wo Strukturierung notwendig ist. Excel erlaubt zwar vieles, aber mit Excel sollte man trotzdem strukturiert arbeiten.
VG
Yal

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread