mit folgendem Code kopiere ich ein Sheet und benenne dieses neu. Meine Frage ist, wie kann ich mit dem Kopieren die Formatierung des ursprünglichen Sheets beibehalten?
Sub LieferantEinfuegen()
Dim NewName As String
Sheets("Lft_Neu").Copy Before:=ActiveSheet
NewName = InputBox("Geben Sie die Lieferanten-Nummer ein!", "Neuer Lieferant")
ActiveSheet.Name = NewName
End Sub
Vielen Dank für Eure Hilfe.Gruß, Marko