ich möchte die Sheetnamen in die Spalten nach rechts kopieren.
Angefangen von A2...
geht das auch per Makro ?
gruß kurt
Dim wks As Worksheet
Dim i As Long
i = 1
With Worksheets("Tabelle1") 'Blattname anpassen
.Rows(2).Clear 'erst Zeile 2 loeschen
For Each wks In Worksheets
.Cells(2, i) = wks.Name ' Name einfuegen
i = i + 1
Next
End With