In einer Inputbox gebe ich den Namen des neuen Tabellenblattes ein
wobei ein neues Blatt angelegt wird auf Basis des Tabellenblattes Vorlage
dieser Name sollte auch in Zelle A1 im neuen Blatt übertragen werden.
If Namen "" Then
WB.Sheets.Add.Name = Namen
Sheets("Vorlage").Cells.Copy Sheets(Namen).[a1]
Gibt es jemand der mir helfen könnte.
Gruss
Doris