habe hier einen Code bei dem wird zuerst sortiert und anschliessend kopiert, dabei werden auch die Formeln mit kopiert.
Ich möchte aber nur die Werte in die andere Tabelle kopieren.
Was muss ich an diesem Code ändern damit es funktioniert?
Private Sub CommandButton5_Click() 'sortieren nach Datum und kopieren
ActiveSheet.Unprotect ("")
With Sheets("Kapazitätsübersicht KV")
.Rows("26:500").Sort Key1:=Range("N26"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("B26:W500").Copy Sheets("Kapazitätsübersicht KV BER").Range("B26")
End With
ActiveSheet.Protect ("")
End Sub
Danke für die Hilfe im Voraus