VBA Excel-Blatt nach Inhalt in Zeile 4 aufteilen?

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen, kannst du den folgenden Code verwenden. Dieser Code erstellt für jeden einzigartigen Wert in Zeile 4 ein neues Arbeitsblatt und kopiert die entsprechenden Daten in diese Blätter.

```vba
Sub SplitSheetByRow4()
Dim ws As Worksheet
Dim newWs As Worksheet
Dim lastCol As Long
Dim lastRow As Long
Dim cell As Range
Dim uniqueValues As Collection
Dim value As Variant
Dim i As Long

' Aktives Arbeitsblatt festlegen
Set ws = ThisWorkbook.ActiveSheet

' Letzte Spalte und letzte Zeile ermitteln
lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' Sammlung für einzigartige Werte erstellen
Set uniqueValues = New Collection

' Einzigartige Werte in Zeile 4 sammeln
On Error Resume Next
For i = 1 To lastCol
uniqueValues.Add ws.Cells(4, i).Value, CStr(ws.Cells(4, i).Value)
Next i
On Error GoTo 0

' Für jeden einzigartigen Wert ein neues Arbeitsblatt erstellen
For Each value In uniqueValues
' Neues Arbeitsblatt erstellen
Set newWs = ThisWorkbook.Worksheets.Add
newWs.Name = value

' Daten kopieren
ws.Rows(1).Copy newWs.Rows(1) ' Kopfzeile kopieren
For i = 1 To lastRow
If ws.Cells(i, 4).Value = value Then
ws.Rows(i).Copy newWs.Rows(newWs.Cells(newWs.Rows.Count, 1).End(xlUp).Row + 1)
End If
Next i
Next value

MsgBox "Das Blatt wurde erfolgreich aufgeteilt!"
End Sub
```

Dieser Code führt die folgenden Schritte aus:

1. Ermittelt die letzte Spalte und die letzte Zeile des Arbeitsblatts.
2. Sammelt alle einzigartigen Werte aus Zeile 4 in einer Sammlung.
3. Erstellt für jeden einzigartigen Wert ein neues Arbeitsblatt und kopiert die entsprechenden Daten.

Um den Code auszuführen, öffne den VBA-Editor in Excel (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.