Habe unteren Code zum sortieren.
Warum fängt der erst ab A4 zum sortieren an ?
Gruß
Heinz
Option Explicit 'Sortieren nach Spalte B Private Sub Worksheet_Activate() Application.ScreenUpdating = False Range("A3:B154").Sort Key1:=Range("B3"), Order1:=xlDescending, Key2:=Range("A3") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A3:B154").Columns.AutoFit Application.ScreenUpdating = True End Sub Urlaub
A | B | |
3 | Ofner Herbert | 0 |
4 | Papp Eva | 10 |
5 | Anusic Anto | 9 |
6 | Beganovic Dean | 8 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4