ich komme nicht dahinter, warum bei der Zeile
strBereich = ThisWorkbook.Worksheets(2).range("B8:X" & lngZeile)
der Laufzeitfehler 13 - Typen unverträglich kommt.
Danke für eure Unterstützung. Georg
Sub ÜbersichtSort()
Dim lngZeile, lngSpalte As Long
Dim strSpalte As String
Dim strBereich As String
'Letzte gefüllte Zeile in Spalte V
lngZeile = ThisWorkbook.Sheets(2).Cells(Rows.Count, 22).End(xlUp).Row
strBereich = ThisWorkbook.Worksheets(2).range("B8:X" & lngZeile)
strSpalte = "D" 'Startzeitpunkt
'Sortieren
With Tabelle2
range(strBereich).Sort _
Key1:=range(strSpalte & "8"), Order1:=xlAscending, _
Header:=xlNo
End With
End Sub