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? :)
|