|
Hallo.
Ich habe ein Arbeitsblatt "Punkte" in dem Werte einegtragen werden und mittels Sverweis in Arbeitsblatt "Gesamt" übertragen werden.
Dort wird berechnet und nach jeder Rechnung soll automatisch sortiert werden. Das funkt. aber nur wenn ich in die Tabelle klicke.
Kann mir jemand helfen?
Mein aufgezeichnetes Makro :
Sub Sortieren()
'
' Sortieren Makro
'
'
Range("G4:G11").Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add2 Key:=Range( _
"G4:G11"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add2 Key:=Range( _
"F4:F11"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("B4:G11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Meine Ergebnisprozedur:
Private Sub Workbook_Activate()
Call Sortieren
End Sub
Danke
|