Vba Tabelle sortieren wks.activate

[StefKe]

Hallo Gemeinde, mit folgendem Code wird das Tabellenblatt nach Datum sortiert. Der Code läuft aber nur wenn das Tabellenblatt aktiviert ist. Gibt es dafür eine geschicktere Lösung?

Code:

Sub DatumSortieren(strKonto As String)
    Dim intZ As Integer
    Dim rngBereich As Range
   
    Application.ScreenUpdating = False
    Worksheets(strKonto).Activate
    intZ = letzteZeile(strKonto) - 1
    Set rngBereich = Worksheets(strKonto).Range("A2:E" & intZ)
    rngBereich.Sort key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo
    Worksheets(1).Activate
    Application.ScreenUpdating = True
   
End Sub

... und einen schönen Sonntag noch :-)