Vba Tabelle sortieren wks.activate

[maninweb]

Hallo,

ungetestet ...

Code:

Sub DatumSortieren(strKonto As String)

    Dim lngZ      As Long
    Dim rngBereich As Range
 
    Application.ScreenUpdating = False
   
    lngZ = letzteZeile(strKonto) - 1
   
    Set rngBereich = ThisWorkbook.Worksheets(strKonto).Range("A2:E" & lngZ)
   
    rngBereich.Sort Key1:=ThisWorkbook.Worksheets(strKonto).Range("A2"), _
    Order1:=xlAscending, Header:=xlNo
   
    Application.ScreenUpdating = True
 
End Sub

Gruß