Hallo,
ich möchte gern Spalte 3 bis 5 in Excel automatisch sorteiren, beginnend mit der 3ten Zeile, sprich ab C3, D3 und E3.
Sobald ein neues eintrag in dieser Spalte komm und es per Enter bestätigt wird, soll es einsortiert werden.
Der Code hier tut zwar das was es soll, jedoch fängt die sortierung gleich ab C1, D1 und E1. Ist es möglich diesen Code so anzupassen?
Danke für die Hilfe
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intSpalte As Integer
If Target.Count > 1 Then Exit Sub
intSpalte = Target.Column
Select Case intSpalte
Case 3 To 5 'Spalten angeben von - bis
If Target.Address = Cells(Rows.Count, intSpalte).End(xlUp).Address Then Columns(intSpalte).Sort Key1:=Cells(1, intSpalte)
End Select
End Sub
|