|
Entschuldigung für die etwas verspätete Antwort und scheinbar mangelnden Informationen...
Mit der Schleife berechne möchte ich die Kosten über einen Zeitraum (q bis nColum) berechnen.
nColum = ActiveSheet.Cells(5, Columns.Count).End(xlToLeft).Column
liefert mir also die Spalte mit dem letzten Eintrag in Zeile 5.
nRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
liefert mir die Zeile mit dem letzten Eintrag in Spalte 2
Die Verweise (Worksheets("..") sind sozusagen Variablen, die vor der Berechnung eingegeben werden müssen.
Ich habe die Schleife wie folg umgestellt, weil es in der Datenreihe nur ein globales Maximum gibt und dementsprechend die
entsprechende If Cells = Maximum Bedingung nur einmal ausgeführt werden muss.
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
Worksheets("Auftragsdaten").Cells(4, 8).Value = Cells(nRow + 5, q).Value
Else
Cells(nRow + 5, q).Value = Cells(nRow + 3, q).Value * Worksheets("Auftragsdaten").Range("F3").Value * 0.25
End If
Next q
Scheint besser zu funktionieren nur habe ich jetzt noch ein paar Schwierigkeiten mit der Aktualisierung des Diagramms ^^ Falls ich diesbezüglich nicht weiter komme, werde ich mich nochmal melden!
Gruß
|