Hallo Leute
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