ich habe ein Tabellenblatt mit 1 Überschriftszeile und zig folgenden Datenzeilen. Abhängig vom
Es soll in der beschirebenen Weise das gesamte Original-Tabellenblatt durchgegangen werden.
Wer kann helfen?
mfg
Jürgen
Sub Tabelle_auslesen()
For sh = 1 To Sheets.Count
If Sheets(sh).Name = "von Spalte A" Then vorhanden = True: Exit For
Next sh
If Not vorhanden = True Then Sheets.Add.Name = "von Spalte A"
ls = Cells(1, 256).End(xlToLeft).Column 'letzte Spalte
With Sheets("von Spalte A")
Range(Cells(1, 1), Cells(1, ls)).Copy .Cells(1, 1)
For z = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(z, 1) = "a" Then ' anpassen
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(z, 1), Cells(z, ls)).Copy .Cells(lz, 1)
End If
Next z
End With
End Sub