Wertes Forum,

ich habe eine Nachfrage zu einem vorhandenen Beitrag hier, allerdings habe ich diese verfrüht auf grün gesetzt, weswegen meine Nachfrage vermutlich untergeht. Sorry fürs doppelt erstellen. :)

(http://www.vba-forum.de/forum/View.aspx?ziel=49367-Probleme_beim_Durcharbeiten_mehrerer_Tabellenbl%C3%A4tter)

Ich möchte mehrere gleiche Tabellenblätter mit IF-Bedingungen durchsuchen. Wenn ein Tabellenblatt durchgearbeitet ist, dann soll zum nächsten Tabellenblatt gewechselt werden. Untenstehenden Code habe ich nun hier dankensweiterweise bekommen:

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
            'Call Rendite_Long
End If
 
Next aktZeile
 
Next i
 
End Sub

Der Code läuft ohne Fehler durch, allerdings wird auch das Tabellenblatt nicht weitergewechselt.

Kann mir hier noch jemand helfen? :)