|
Moin,
zunächst einmal meine Aufgabe:
- Ich habe X Spalten (in der jeweils ersten steht die Zeit in sec, in den anderen Messwerte)
-Ich soll in jede Spalte unter den Messwerten das Integral über die Zeit ausgeben (also quasi den Flächeninhalt)
-Wenn alle Spalten abgearbeitet sind auf ins nächste Worksheet und da dasselbe nochmal
Folgendes habe ich bereits:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | Sub integral2()
Dim i As Integer
Dim j As Integer
Dim sum As Double
Do While ActiveSheet.Name <> Sheets(Sheets.Count).Name
i = 1
j = 2
Do While Cells(i, j) <> ""
Do While Cells(i + 1, j) <> ""
sum = sum + ((Cells(i, j) + Cells(i + 1, j)) / 2) * (Cells(i + 1, 1) - Cells(i, 1))
i = i + 1
Loop
Cells(i + 4, j) = sum
j = j + 1
Loop
ActiveSheet.Next.Activate
Loop
End Sub
|
Das Makro tut nun folgendes (nicht):
-Das Integral der ersten Messwert-Spalte wird korrekt berechnet und ausgegeben.
-Ab der zweiten Messwert-Spalte wird nur noch das Integral der ersten ausgegeben und anscheinend nicht für jede Spalte neu berechnet. (Da liegt das Problem)
(Und das in jedem Sheet; das wechseln funzt einwandfrei)
Nun mein Anliegen: Wie bekomme ich das Makro dazu in jeder Messwert-Spalte auch das Integral zu berechnen und nicht immer das der ersten auszugeben?
Ps: Ich hoffe es ist klar geworden was ich meine, wenn nicht kann ich einen Screenshot nachreichen
Gruß
Lars
|