ich habe hier ein funktionierendes VBA.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Set Bereich = Range("B3:K32") 'Bereich, den du sortieren willst
Bereich.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'sortiert nach Spalte J, beginnend bei Zeile3, _
aufsteigend sortiernd
Application.ScreenUpdating = True
End Sub
Nun würde ich gerne das die 0 in J3 unten steht, aber alles was größer ist als 0 vom kleinsten zum größten sortiert wird.Mit freundlichem Gruß
Sankt