Ist>> Änderung
1>>1
2>>3
3>>4
4>>2
5>>5
6>>6
zusätzlich soll die Liste dann nach Priorität sortiert werden. Private Sub CommandButton1_Click()
' Prio erhöhen
If Selection.Row = 2 Then
MsgBox "hat bereits Prio 1"
Exit Sub
End If
Selection.EntireRow.Cut
Cells(Selection.Row - 1, 1).Insert Shift:=xlDown
Selection.Offset(-1, 0).Select
End Sub
Private Sub CommandButton2_Click()
' Prio reduzieren
If Selection.Row = 1 Then
MsgBox "Titelzeile kann nicht verschoben werden"
Exit Sub
End If
Selection.EntireRow.Cut
Cells(Selection.Row + 2, 1).Insert Shift:=xlDown
Selection.Offset(1, 0).Select
End Sub