Sub Anlegen()
Dim Blattname As String, Bereich As Range
Set Bereich = ActiveSheet.Range("A1:Q27")
Blattname = [B3]
If [B3] = "" Then
MsgBox ("Auftragsnummer eingeben")
Exit Sub
Else: Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Blattname
ActiveSheet.Unprotect
Bereich.Copy
Sheets(Blattname).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, skipblanks _
:=False, Transpose:=False
End Sub
Damit wird vom einen in ein anderes Tabellenblatt kopiert.
Allerdings müssen die Formeln in Q erhalten bleiben, sicher wäre es einfach möglich auf 2. _
Schritte kopiern,
doch ist des weder elegant noch praktisch.
Gibt es also eine möglichkeit in dieser letzten Spalte die Formeln beizubehalten?
Viele Dank im Voraus und Grüße