strBereich bleibt der Debugger hängen mit der Meldung Typen unvertäglich.
Was mache ich falsch? Danke für einen Tipp.
Gruß 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.Sheets(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