Liste sortieren
28.10.2004 15:09:26
Erich Müller
in einer Tabelle mit 8 Spalten (B3:H???), soll nach Eingabe in H die Tabelle aufsteigend nach B3 sortiert werden. Nach untenstehendem Makro klappt das auch.
Allerdings beginnt meine Tabelle nicht mehr in A3 sondern in A2.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Or _
Target.Column = 4 Or Target.Column = 5 Or _
Target.Column = 6 Or Target.Column = 7 Then Target.Offset(0, 1).Select
If Target.Column = 8 Then
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cells(Target.Row + 1 , Target.Column - 6).Select
End If
End Sub
Wer hilft mir ?
Gruß Erich Müller