Hallo,
habe eine Schleife programmiert, die bis heute zuverlässig funktionierte! Seltsamerweise bricht die Schleife seit heute bei "q=27 ab" - wieso auch immer?!
For q = 3 To nColum
Cells(nRow + 4, q).Value = MittelwertVerbrauch
If Cells(nRow + 3, q).Value = Maximum Then
Cells(nRow + 5, q).Value = (Cells(nRow + 3, q).Value * Worksheets("Auftragsdaten").Range("F4").Value * 0.25) / Worksheets("Auftragsdaten").Range("F5").Value
Else
Cells(nRow + 5, q).Value = Cells(nRow + 3, q).Value * Worksheets("Auftragsdaten").Range("F3").Value * 0.25
SummeArbeitspreis = SummeArbeitspreis + Cells(nRow + 5, q).Value
End If
Next q
|