Excel-Blatt in VBA nach Inhalt in Zeile 4 aufteilen und Spalten in neues Blatt einfügen.

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen und alle Spalten in ein neues Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass die Daten im aktiven Arbeitsblatt stehen und die neuen Blätter nach den Werten in Zeile 4 benannt werden.

```vba
Sub SplitSheetByRow4()
Dim ws As Worksheet
Dim newWs As Worksheet
Dim lastCol As Long
Dim i As Long
Dim header As String

' Aktives Arbeitsblatt setzen
Set ws = ActiveSheet

' Letzte Spalte in Zeile 4 finden
lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column

' Schleife durch alle Spalten in Zeile 4
For i = 1 To lastCol
header = ws.Cells(4, i).Value

' Neues Arbeitsblatt erstellen
Set newWs = ThisWorkbook.Worksheets.Add
newWs.Name = header

' Kopiere die gesamte Spalte in das neue Blatt
ws.Columns(i).Copy Destination:=newWs.Columns(1)
Next i

' Optional: Ursprüngliches Blatt wieder aktivieren
ws.Activate
End Sub
```

Dieser Code erstellt für jede Spalte in Zeile 4 ein neues Arbeitsblatt und kopiert die gesamte Spalte in das neue Blatt. Achte darauf, dass die Namen der neuen Blätter gültig sind und keine Duplikate entstehen.