AW: Automatsches Sortieren
27.08.2009 13:43:11
ms22
Hi Sankt,
auch wenn du VBA nicht gut kannst, gehts damit sehr einfach.
Öffne in Excel mit der Tastenkombination "Alt + F11" den VisualBasic Editor. Doppelklick auf das Tabellenblatt "Einzelergebnisse" links im Explorer, dann rechts in das weisse Feld folgenden Code eingeben:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Set bereich = Range("A3:M32") 'Bereich, den du sortieren willst
bereich.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'sortiert nach Spalte J, beginnend bei Zeile3, _
aufsteigend sortiernd
Application.ScreenUpdating = True
End Sub
Dann deinen Bereich noch anpassen und speichern und fertig is es.
Gruß Markus