Hallo Leute
Habe ein Makro von Herber's Leuten bekommen,das auch super funkt.Nur beim hinzufügen eines neuen Tabellenblattes werden die Formeln von Zelle O59 & O60 nicht mitübernommen.Könnte mir BITTE jemand helfen..
Danke Heinz
https://www.herber.de/bbs/user/17773.xls
Sub kopiereBlatt()
Dim wks As Worksheet
Dim zi, JUrl, ETDat, EinfDatE, EinfDatB As Variant
Application.ScreenUpdating = False
Sheets(Sheets.Count - 1).Copy Before:=Sheets(Sheets.Count)
Set wks = Sheets(Sheets.Count - 1)
With wks
'.Name = .Range("A6") & " bis " & .Range("A52")
.Range("A6") = .Range("A52") + 3
.Range("M58:M60") = .Range("O58:O60").Value