Public wks As Excel.Worksheet
Public i As Long
-----------------------------------------------------------------------------------
For i = 1 To ThisWorkbook.Worksheets.Count
Set wks = ThisWorkbook.Worksheets(i)
For aktZeile = aktZeile To ersteZeile Step -1
If (Cells(aktZeile, 15) > Cells(aktZeile, 16)) Then
blablabla
End If
aktZeile = aktZeile - 1
Loop
Call Verkaufen_nächster_Tag_Erster
End If
Next aktZeile
Next i
End Sub