Daten sofort bei Eingabe sortieren
23.07.2020 16:01:28
Ylmz-006
Ich bräuchte mal wieder eure unterstützung.
Der u.a Code funktioniert soweit ganz gut. Allerdings kann ich nur bis zeile 100 sortieren. Wie _ kann ich den Code auf meine Dynamische Tabelle anpassen?
Private Sub Worksheet_Change(ByVal Target As Range)
ProjektArchivieren Target
If Not Intersect(Target, Range("B12:Y100")) Is Nothing Then
Range("B12:Y100").Sort Key1:=Range("M12"), _
Order1:=xlAscending, _
Header:=xlYes
End If
End Sub
Vielen Dank im Voraus.