Blattschutz / Sortieren
27.12.2020 17:13:03
Roger
Hallo, heute habe ich es nicht so mit Blattschutz. Möchte das Blatt sortieren aber das Blatt soll im grunde schreibgeschützt sein. wo habe ich dies einzutragen?
Sub Sortieren_App()
Dim lZ As Long
lZ = Cells(Rows.Count, 3).End(xlUp).Row
With Range("D2:D" & lZ)
.FormulaR1C1 = "=Match(RC2,R2C1:R" & lZ & "C1,0)"
.Offset(0, -2).Resize(, 3).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.ClearContents
End With
End Sub