Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Subsplit über mehrere Tabellenblätter

Makro Subsplit über mehrere Tabellenblätter
26.02.2018 14:18:48
Tommy
Liebe Excel Profis,
ich benötige Eure Unterstützung beim Aufteilen einer Excel Datei mit mehreren Tabellenblättern mittels Makro.
Die Masterdatei enthält 3 Tabellenblätter (FX, TG & WP). Die Spalte D "Split-Kriterim" beinhaltet das Kriterium, nachdem die einzelnen Datensätze aufgeteilt werden sollen (in jedem Tabellenblatt).
Als Resultat soll für jedes Split-Kriterium eine neue Excel Datei mit jeweils 3 Tabellenblättern erscheinen.
Masterdatei:
https://www.herber.de/bbs/user/120072.xlsx
Viele Grüße
Tommy

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Subsplit über mehrere Tabellenblätter
26.02.2018 14:37:34
Daniel
Hi
ok, du brauchst Unterstützung.
was sind denn deine konkreten Fragen?
Bei welchen Punkten hast du Probleme?
Oder möchtest du einfach einen fertigen Code geliefert bekommen?
Gruß Daniel
AW: Makro Subsplit über mehrere Tabellenblätter
26.02.2018 19:08:13
Tommy
Hi Daniel,
am liebsten hätte ich gerne einen fertigen Code, da meine VBA Kenntnisse leider sehr schlecht sind.
Beste Grüße
Tommy
AW: Makro Subsplit über mehrere Tabellenblätter
04.03.2018 12:14:16
Dieter
Hallo Tommy,
ich bin davon ausgegangen, dass in den einzelnen Blättern - wie in deiner Beispieldatei - gleiche Satzzahlen für die verschiedenen Kriterien vorhanden sind. Dann könnte das Programm z.B. so aussehen 
Sub Trennen()
Dim aktSplitKrit As String
Dim anfZeile As Long
Dim datName As String
Dim endZeile As Long
Dim i As Long
Dim letzteZeile As Long
Dim pfad As String
Dim sinw As Long
Dim sortBereich As Range
Dim wb As Workbook     ' Neu erzeugte Mappe
Dim wbM As Workbook    ' Master
Dim ws As Worksheet
Dim wsFX As Worksheet  ' Blatt "FX" vom Master
Dim wsM As Worksheet   ' Blatt vom Master
Dim zeile As Long
'  Application.ScreenUpdating = False
sinw = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 3
Set wbM = ThisWorkbook
pfad = wbM.Path & "\"
Set wsFX = wbM.Worksheets("FX")
letzteZeile = wsFX.Cells(wsFX.Rows.Count, "A").End(xlUp).Row
If letzteZeile  aktSplitKrit Then
' Wechsel des SplitKriteriumn
endZeile = zeile - 1
Set wb = Workbooks.Add
For i = 1 To 3
Set ws = wb.Worksheets(i)
Set wsM = wbM.Worksheets(i)
ws.Name = wsM.Name
wsM.Rows("1:3").Copy Destination:=ws.Rows("1:3")
wsM.Range(wsM.Rows(anfZeile), _
wsM.Rows(endZeile)).Copy Destination:=ws.Range("A4")
ws.Columns.AutoFit
Next i
datName = aktSplitKrit & ".xlsx"
Application.StatusBar = datName
On Error Resume Next
Workbooks(datName).Close SaveChanges:=False
On Error GoTo 0
Application.DisplayAlerts = False
wb.SaveAs Filename:=pfad & datName
Application.DisplayAlerts = True
wb.Close
anfZeile = endZeile + 1
If Not IsEmpty(wsFX.Cells(anfZeile, "D")) Then
aktSplitKrit = wsFX.Cells(anfZeile, "D")
Else
Exit For
End If
End If
Next zeile
Application.SheetsInNewWorkbook = sinw
Application.ScreenUpdating = True
Application.StatusBar = Empty
End Sub
Viele Grüße
Dieter
https://www.herber.de/bbs/user/120201.xlsm
Anzeige

329 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Auswertung über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich hoffe ich finde bei Euch Hilfe. Ich habe nun schon einige Zeit das Forum durchsucht aber keine passende Lösung gefunden.
Ich habe eine Arbeitsmappe mit ca. 90 Tabellenblättern. Die Tabellenblätter sind so aufgebaut, das jeweils im Bereich
C6-E60 Daten stehen. In...
17.06.2009 10:51:48
Thread-ID: 1082164
6 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
2
9
15
2
8
3
5
2
4
3
6
2
6
3
1
12
3
3
13
2
7
2
4