Add new Sheet and rename
Albert
ich hab mit einem Code versucht, ein neues Sheet in eine Mappe einzufügen und neu zu benennen.
Dazu verwende ich folgenden Code.
Sub Daten_übertragen()
' Daten_übertragen Makro
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Sheets.Select
ActiveSheet.Name = Range("E5").Value
ActiveSheet.Select
Sheets("Zeitaufnahme").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub
Allerdings benennt er hierbei entweder das Sheet "Zeitaufnahme" um oder bringt einen Laufzeitfehler.Woran könnte der Fehler liegen?
Danke im Voraus!
Mfg
Albert