Gibt es eine Möglichkeit mit VBA ein Blatt zu kopieren und gleichzeitig diesem Blatt einen Namen aus einer Liste eines anderen Tabellenblattes zu vergeben?
Gruß
AndreJ
Hallo AndreJ,
ein bisschen wenig, Deine Angaben, ich geh mal davon aus, dass der Name des neuen Blattes in A1 steht.
Gruss Beni
Sub Blatt_kopieren_und_Namen_vergeben()
ShName = Sheets(2).Cells(1, 1)
sh = Sheets.Count
Sheets("Original").Copy After:=Sheets(sh)
Sheets(sh + 1).Name = ShName
End Sub