ich möchte aus meinem Tabellenblatt1, jede einzelne Spalte in ein neues Tabellenblatt (Tabellenblattname in Zelle2) kopieren. geht so was?
Sub aaa()
Dim c As Range
Application.ScreenUpdating = False
With Sheets(1)
For Each c In .Range(.Cells(2, 1), .Cells(2, Columns.Count).End(xlToLeft))
Worksheets.Add.Name = c.Value
c.EntireColumn.Copy ActiveSheet.Cells(1, 1)
Next c
End With
End Sub
Sub aaa()
Dim c As Range
Application.ScreenUpdating = False
With Sheets(1)
For Each c In .Range(.Cells(2, 1), .Cells(2, Columns.Count).End(xlToLeft))
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = c.Value
c.EntireColumn.Copy ActiveSheet.Cells(1, 1)
Next c
End With
End Sub