Mastertabelle automatisch in verschiedene Blätter aufteilen

Hallo Sven,

Um die Mastertabelle automatisch in verschiedene Blätter aufzuteilen, kannst du ein Makro oder eine VBA-Skriptlösung in Microsoft Excel verwenden. Hier ist ein Beispiel, wie du das tun könntest:

Sub AufteilenInBlätter() 
Dim wsMaster As Worksheet Dim wsAusflug1 As Worksheet, wsAusflug2 As Worksheet, 
wsAusflug3 As Worksheet Dim LastRow As Long, i As Long Dim Ausflug1 As Range, 
Ausflug2 As Range, Ausflug3 As Range Dim Ausflug1Index As Long, 
Ausflug2Index As Long, Ausflug3Index As Long ' Definiere die Mastertabelle 
und die Ausflugsblätter Set wsMaster = ThisWorkbook.Sheets("Mastertabelle") Set 
wsAusflug1 = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)) 
wsAusflug1.Name = "Ausflug 1" Set wsAusflug2 = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)) 
wsAusflug2.Name = "Ausflug 2" Set wsAusflug3 = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)) 
wsAusflug3.Name = "Ausflug 3" ' Finde die letzte Zeile in der Mastertabelle LastRow = wsMaster.Cells(wsMaster.Rows.Count, 
"A").End(xlUp).Row ' Durchlaufe die Mastertabelle und teile die Daten in die 
entsprechenden Ausflugsblätter ein For i = 2 To LastRow ' 
Annahme: Die Überschriften sind in Zeile 1 und die Daten beginnen in Zeile 2 Select 
Case wsMaster.Cells(i, 3).Value Case "Ausflug 1" If Ausflug1 Is Nothing Then 
Ausflug1Index = 2 ' Annahme: Die Daten beginnen in Zeile 2 Set Ausflug1 = 
wsAusflug1.Cells(Ausflug1Index, 1) Else Ausflug1Index = Ausflug1.Rows.Count + 1 
End If wsMaster.Rows(i).Copy Destination:=Ausflug1 Case "Ausflug 2" If 
Ausflug2 Is Nothing Then Ausflug2Index = 2 ' 
Annahme: Die Daten beginnen in Zeile 2 Set Ausflug2 = wsAusflug2.Cells(Ausflug2Index, 1) 
Else Ausflug2Index = Ausflug2.Rows.Count + 1 End If wsMaster.Rows(i).Copy Destination:=Ausflug2 
Case "Ausflug 3" If Ausflug3 Is Nothing Then Ausflug3Index = 2 ' Annahme: Die Daten beginnen in 
Zeile 2 Set Ausflug3 = wsAusflug3.Cells(Ausflug3Index, 1) Else Ausflug3Index = 
Ausflug3.Rows.Count + 1 End If wsMaster.Rows(i).Copy Destination:=Ausflug3 
End Select Next i End Sub

Dieses Makro erstellt drei neue Blätter ("Ausflug 1", "Ausflug 2" und "Ausflug 3") und kopiert die entsprechenden Zeilen aus der Mastertabelle basierend auf dem Ausflugsnamen in die jeweiligen Blätter.

Um dieses Makro auszuführen, gehe wie folgt vor:

1. Öffne deine Excel-Datei.
2. Drücke ALT + F11, um den Visual Basic Editor zu öffnen.
3. Wähle "Einfügen" > "Modul", um ein neues Modul zu erstellen.
4. Kopiere den obigen VBA-Code und füge ihn in das neue Modul ein.
5. Schließe den Visual Basic Editor.
6. Drücke ALT + F8, wähle "AufteilenInBlätter" aus und klicke auf "Ausführen".

Dadurch wird deine Mastertabelle automatisch in verschiedene Blätter aufgeteilt, basierend auf den Ausflugsdaten. Du kannst diesen Code anpassen, um ihn deinen spezifischen Anforderungen anzupassen.

Viel Erfolg!

Lieben Gruß

AntonBernad