danke für die vorhergehende Hilfe. Ich hätte noch mal ein kleines Problem, wahrscheinlich recht leicht zu lösen für einen Profi.
Beim Ausführen des folgenden Code erscheint der Fehler '1004' Method "Range" of Object "_Global" failed.
Woran könnte das liegen?
Sub Button3_Click()
For i = 5 To 1000 Step 20
Dim b As String
b = i + 15
Range(Cells(i, 1), Cells(b, 14)).Sort Key1:=Range(i, 1), Order1:=xlAscending, Header:= _
xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next
End Sub