Das Makro funktioniert einwandfrei. Gerne würde ich noch das Blatt schützen
Wo und was im Makro muss ich verändern das es mit Schutz auch läuft?
Gruess Roger
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