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

Um ein Excel-Blatt in VBA nach dem Inhalt in Zeile 4 aufzuteilen und alle Zeilen in ein neues Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code erstellt ein neues Blatt und kopiert die Zeilen basierend auf den Werten in Zeile 4.

```vba
Sub SplitByRowContent()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim lastRow As Long
Dim lastCol As Long
Dim i As Long
Dim cellValue As String
Dim targetRow As Long

' Set the source worksheet
Set wsSource = ThisWorkbook.Sheets("Sheet1") ' Ändere "Sheet1" in den Namen deines Quellblatts
lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
lastCol = wsSource.Cells(4, wsSource.Columns.Count).End(xlToLeft).Column

' Erstelle ein neues Blatt
Set wsTarget = ThisWorkbook.Sheets.Add
wsTarget.Name = "SplitData" ' Name des neuen Blatts

' Durchlaufe die Spalten in Zeile 4
For i = 1 To lastCol
cellValue = wsSource.Cells(4, i).Value
targetRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row + 1

' Kopiere die gesamte Spalte, wenn der Wert in Zeile 4 nicht leer ist
If cellValue <> "" Then
wsSource.Range(wsSource.Cells(1, i), wsSource.Cells(lastRow, i)).Copy
wsTarget.Cells(targetRow, 1).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End If
Next i

MsgBox "Daten wurden erfolgreich aufgeteilt!"
End Sub
```

Dieser Code führt die folgenden Schritte aus:

1. Er definiert das Quellblatt und ermittelt die letzte Zeile und Spalte.
2. Er erstellt ein neues Blatt für die aufgeteilten Daten.
3. Er durchläuft die Spalten in Zeile 4 und kopiert die Daten in das neue Blatt, wenn der Wert in Zeile 4 nicht leer ist.
4. Am Ende wird eine Meldung angezeigt, dass die Daten erfolgreich aufgeteilt wurden.

Stelle sicher, dass du den Namen des Quellblatts im Code anpasst, bevor du das Makro ausführst.