Zusammenfassen von Messwerten
16.10.2018 10:55:52
Messwerten
ich nutze VBA recht selten und bin daher auch nicht sehr gut darin.
Ich bin aktuell dabei Messwerte die kontinuierlich erweitert werden in einer Tabelle zusammenzufassen. Dabei werden Messwerte Tageweise erfasst, tagweise in einzelnen separaten Tabellenblättern zusammengefasst und per makro bearbeitet. Final sollen alle Tagesauswertungen in einem Tabellenblatt zusammengefasst werden.
Das Makro dafür habe ich hier bei euch im Forum gefunden und das funktioniert auch.
Sub Werte_Zusammenführen()
Dim i As Integer
Dim LRow As Long
Application.ScreenUpdating = False
'neue Tabelle an die erste Position einfügen
Sheets.Add Before:=Sheets(1)
For i = 2 To Sheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
With Sheets(i)
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("J1:N1" & LRow).Copy
Sheets(1).Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial xlPasteValues
End With
Next
Application.ScreenUpdating = True
End Sub
Jetzt stehe ich allerdings vor dem Problem, dass ich für die Auswertung eine fortlaufende Zeit erfassen muss. Diese jedoch in den tagesbezogenen Auswertungen immer bei 0 beginnt. In der Zusammenfassung dann also keine fortlaufende Zeit auftaucht.
Mein Plan wäre beim zusammenfasse der Werte in einem neuen Tabellenblatt den letzten Zeitwert einer Tagesauswertung zu kopieren und mit den Zeitwerten des nächsten Tabellenblattes zu addieren. Das natürlich wieder fortlaufen mit dem jeweils nachfolgenden Tabellenblatt.
Als Formel natürlich kein Problem allerdings handelt es sich um viele Daten so dass eine händische Nacharbeit extrem aufwendig ist. Und meine VBA Kenntnisse reichen dazu leider nicht mehr aus.
Kann mir jemand helfen?
Danke vorab!
Gruß
Simon