Clever-Excel-Forum

Hallo.
Ich habe 2 Arbeitsblätter im Ersten "Punkte" werden Werte eingetragen und mittels Sverweis in das Arbeitsblatt "Gesamt " übertragen.
Dort wird berechnet und soll jedesmal neu sortiert werden.
Das funkt. aber nur wenn ich in die Tabelle klicke.

Kann mir jemand helfen, damit das Sortieren ohne klicken funktioniert?

Mein aufgezeichnetes Makro lautet:

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


Ereignisprozedur:

Private Sub Workbook_Activate()

Call Sortieren
End Sub


Danke

Hallo,

in das VBA-Modul des Arbeitsblattes "Punkte" kommt das:

Private Sub Worksheet_Change(ByVal Target As Range)

  Call Sortieren

End Sub

Gruß Uwe

Danke für die Antwort. 

Funkt. leider nicht, muss noch immer in die Tabelle klicken damit sortiert wird.

Hallöchen,

wenn es beim Berechnen passieren soll dann so:

Private Sub Worksheet_Calculate()
Call Sortieren
End Sub

Viel Spaß

Hallo,

funkt leider auch nicht, sortiert wird nur wenn ich in die Tabelle klicke.

Hallöchen,

welch Wunder - sind ja sogar zwei Dateien und nicht nur zwei Blätter.

Dann im Codemodul vom Blatt Gesamt z.B.

Private Sub Worksheet_Calculate()
Call Sortieren
End Sub

und beim Sortieren statt ActiveWorkbook dann ThisWorkbook.

Danke für die Hilfe,

jetzt kommt nach dem Sortieren folgender Fehler:

Die Methode "Apply" für das Objekt "Sortieren" ist fehlgeschlagen.

Kannst du mir nochmals helfen.

Danke

Fehlercode:
Laufzeitfehler 80010108

Danke

Hallöchen,

nimm mal oben noch die beiden Range... raus oder kommentier die aus

' Range("G4:G11").Select
' Range("G11").Activate