|
Hallo habe eine kurze Frage bezüglich einer for... next schleife
habe mir eine geschachtelte for next schleife zusammengebaut, um die übersicht zu behalten habe ich die innenliegenden for-next-schleifen in der gesamt schleife als Call eingesetzt.
hier die Struktur
For annaeherung = 0 To 10
Sheets("Reale Bedarfe").Cells(159, 5).Value = Sheets("integrierter Ansatz").Cells(67, (11 - 5) + annaeherung)
If Sheets("integrierter Ansatz").Cells(67, 11 + annaeherung) > 0 Then
Call Kap_ersteprüfung
Else
Call Kap_überschritten
Call übertragen_vom_Solver
End If
Sheets("Reale Bedarfe").Range("D163:E171").ClearContents
Sheets("Reale Bedarfe").Range("G163:G171").ClearContents
Next annaeherung
Nun wird der counter annaeherung in den einzelnen calls jedoch anscheinend nicht berücksichtigt
Sub Kap_ersteprüfung()
For i = 1 To 26
If Sheets("integrierter Ansatz").Cells(35 + i, 12 + annaeherung) = "ja" Then 'Prüfen ob in Kategorie fällt
Sheets("Reale Bedarfe").Cells(90, 6) = Sheets("integrierter Ansatz").Cells(35 + i, 2).Value ' Einfügen der Artikelnr in Reale Bedarfe
Sheets("integrierter Ansatz").Cells(35 + i, 13 + annaeherung).Value = Sheets("Reale Bedarfe").Cells(146, 6 + kw) 'Rang 1 wählen
End If
Next i
End Sub
wie kann ich den fehler beheben, sodass bei jedem durchlauf der schleife annäherung diese im nächsten durchlauf erhöht wird?
|