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:
Sub integral2()
Dim i As Integer 'zeile
Dim j As Integer 'spalte
Dim sum As Double
Do While ActiveSheet.Name <> Sheets(Sheets.Count).Name
i = 1 'beginnzeile im jeweiligen sheet
j = 2 'beginnspalte im jeweiligen sheet
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))
'sum = sum + den flächeninhalt des nächsten abschnitts
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
|