Moin,
ich bin gerade dabei das Makro noch ein wenig zu erweitern.
Folgendes soll es nun tun:
Bisher hat das Makro ja unter jede Messwertspalte ein Ergebnis geschrieben und ist dann in die nächste Spalte gegangen.
Nun sollen halt die einzelnen Ergebnisse in eine andere Datei geschrieben werden, die ich zuvor geöffnet habe.
Mein Code ist bisher folgender:
Sub integral2()
Dim i As Integer 'zeile
Dim j As Integer 'spalte
Dim sum As Double
Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Set wbQuelle = ThisWorkbook
Set wbZiel = Workbooks.Open("Z:\Luecke\AlDi\ziel.xlsx")
wbQuelle.Activate
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) <> ""
sum = 0
i = 1
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
wbZiel.Sheets(1).Cells(1, j) = sum
j = j + 1
Loop
ActiveSheet.Next.Activate
Loop
End Sub
Das Problem ist folgendes:
Excel berechnet anscheinend wieder nur ein Ergebnis und schreibt dieses in die Zieldatei.
|