Unterschiedlich lange Dateinreihen Mittelwerte

Guten Tag zusammen,
ich recherchiere schon seit längerem, finde aber einfach keine Lösung für mein Problem.
Ich habe insgesamt drei Versuche durchgeführt und dabei Weg, Kraft und Temperatur aufgezeichnet. Für jeden Versuch erhalte ich von unserem Aufzeichnungssystem jeweils eine Datei mit CSV.
Die Datei hat immer exakt eine Länge von 32775 Zeilen. Die Krux ist jedoch, dass der Versuch sowohl zu einem anderen Zeitpunkt beginnt und endet. Die unterschiedliche Länge hängt zum Einen vom Anfangszeitpunkt und zum Anderen von der Geschwindigkeit der Maschine ab. Ich kann zwar sowohl den Anfangs-, als auch den Endzeitpunkt mit hoher Genauigkeit bestimmen und die Daten entsprechend trimmen. Die Datenreihen haben jedoch unterschiedliche Längen. Die Länge der einzelnen Blöcke liegt von 300 über ca. 525 bis zu 1010 Zeilen. Nun aber zum Casus Knaxus: Ich muss aus diesen einzelnen Versuchen einen Mittelwert mit Standardabweichung berechnen.
Aufgrund der stark unterschiedlichen Längen kann man nicht einfach die jeweiligen Zeilen zur Berechnung heranzuziehen.
Die Bezugsgröße stellt der Weg dar. Aus diesem Grund wäre es sehr gut, wenn die Wegwerte aus der kürzesten Datenreihe als Grundlage für eine Klasseneinteilung für die restlichen zwei Datenreihen dienen würden. Alle Werte, die innerhalb einer Klasse liegen (Weg, Kraft, Temperatur) sollen gemittelt werden und dann in ein neues Tabellenblatt abgelegt werden. Daraus kann ich dann anschließend MW und STABW berechnen.
Aber wie mache ich das? Ich beherrsche zwar VBA passabel (aus meiner Sicht), jedoch habe ich von Programmieren im eigentlichen Sinne und Programmaufbau leider keine Ahnung. Die Aufgabe ist einfach zu komplex für mich. Ich hoffe, hier kann jemand helfen. Es ist echt sehr wichtig für mich, dieses Problem zu lösen.
Gruß
TheBeginner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Richard,
lass mal das Makro HoleWerteAusV1bisV3 über die Musterdatei laufen. Das findet den kleinsten Vergleichswert auch bei unsortierten Listen.
Ich hätte gedacht, dass läuft etwas länger, hält sich bei mir aber im Rahmen. Wie lang sind denn die Datenlisten, die du realistisch erhälst? Ähnlich Lang, oder eher je eine Million Zeilen?
Wenn du mich die Listen (per Makro!) sortieren lässt, kann ich die Laufzeit deutlich reduzieren.
(Hintergrund: Momentan läut eine Schleife über JEDEN Eintrag in V1-V3. Bei einer sortierten Liste könnte man per MATCH den nächstgrößeren Wert zum Suchwert ermitteln, und von da an prüfen bis der Vergleichswert nicht mehr kleiner wird - das würde die Durchläufe pro Liste von X (=Anzahl Zeilen) auf 2 oder 3 insgesamt reduzieren)

Option Explicit
Public iColWeg As Integer
Public iColWert As Integer
Public lRowF As Long
Public lRowL As Long
Public dSearch As Double
Private Sub HoleWerteAusV1bisV3()
Dim wksV1 As Worksheet
Dim wksV2 As Worksheet
Dim wksV3 As Worksheet
Dim wksZiel As Worksheet
Dim rV1 As Range
Dim rV2 As Range
Dim rV3 As Range
Dim rWeg As Range
'* Variablen definieren
'Namen der Arbeitsblätter
Set wksV1 = Sheets("V1")
Set wksV2 = Sheets("V2")
Set wksV3 = Sheets("V3")
Set wksZiel = Sheets("V1bis3")
'Zeilen und Spalten definieren
iColWeg = 3         'Wege stehen in Spalte C (=3)
iColWert = 7        'die Kommazahlen (Spannung?) stehen in Spalte G (=7)
lRowF = 2           'es wird ab Zeile 2 ausgewertet (Zeile1 = Überschriften)
'hier kommen die Ausgabewerte hin
Set rV1 = wksZiel.Range("C4")
Set rV2 = wksZiel.Range("C5")
Set rV3 = wksZiel.Range("C6")
'hier steht der Eingabewert
Set rWeg = wksZiel.Range("C2")
'hole den Suchwert automatisch
dSearch = rWeg.Value
'* Programm startet
rV1.Value = VergleicheWeg(wksV1)
rV2.Value = VergleicheWeg(wksV2)
rV3.Value = VergleicheWeg(wksV3)
End Sub
Function VergleicheWeg(wksMy As Worksheet)
Dim r As Range
Dim dDiffOld As Double
Dim dDiffNew As Double
With wksMy
'Vergleichswert unrealistisch hoch ansetzen
dDiffOld = 9 ^ 9
'letzte Zeile
lRowL = .Cells(.Rows.Count, iColWeg).End(xlUp).Row
'jeden Wert abklopfen
For Each r In .Range(.Cells(lRowF, iColWeg), .Cells(lRowL, iColWeg))
'Differenz zwischen gefundenem und Suchwert, immer positiv
dDiffNew = r.Value - dSearch
If dDiffNew

Für das andere Problem warte ich noch auf die Erklärung.
Grüße,
Klaus M.vdT.

Option Explicit Public iColWeg As Integer Public iColWert As Integer Public lRowF As Long Public lRowL As Long Public dSearch As Double Private Sub HoleWerteAusV1bisV3() Dim wksV1 As Worksheet Dim wksV2 As Worksheet Dim wksV3 As Worksheet Dim wksZiel As Worksheet Dim rV1 As Range Dim rV2 As Range Dim rV3 As Range Dim rWeg As Range '* Variablen definieren 'Namen der Arbeitsblätter Set wksV1 = Sheets("V1") Set wksV2 = Sheets("V2") Set wksV3 = Sheets("V3") Set wksZiel = Sheets("V1bis3") 'Zeilen und Spalten definieren iColWeg = 3 'Wege stehen in Spalte C (=3) iColWert = 7 'die Kommazahlen (Spannung?) stehen in Spalte G (=7) lRowF = 2 'es wird ab Zeile 2 ausgewertet (Zeile1 = Überschriften) 'hier kommen die Ausgabewerte hin Set rV1 = wksZiel.Range("C4") Set rV2 = wksZiel.Range("C5") Set rV3 = wksZiel.Range("C6") 'hier steht der Eingabewert Set rWeg = wksZiel.Range("C2") 'hole den Suchwert automatisch dSearch = rWeg.Value '* Programm startet rV1.Value = VergleicheWeg(wksV1) rV2.Value = VergleicheWeg(wksV2) rV3.Value = VergleicheWeg(wksV3) End Sub Function VergleicheWeg(wksMy As Worksheet) Dim r As Range Dim dDiffOld As Double Dim dDiffNew As Double With wksMy 'Vergleichswert unrealistisch hoch ansetzen dDiffOld = 9 ^ 9 'letzte Zeile lRowL = .Cells(.Rows.Count, iColWeg).End(xlUp).Row 'jeden Wert abklopfen For Each r In .Range(.Cells(lRowF, iColWeg), .Cells(lRowL, iColWeg)) 'Differenz zwischen gefundenem und Suchwert, immer positiv dDiffNew = r.Value - dSearch If dDiffNew

Range("B2").Value = WorksheetFunction.Index("Pretests2!Range(Cells(2, 7), Cells(minimum, 7))", Application.WorksheetFunction.Match("Zusammenfassung!A2", "Pretests2!Range(Cells(2, 3), Cells(minimum, 3))", 1)).End(xlUp).Row

Range("B2").Value = WorksheetFunction.Index("Pretests2!Range(Cells(2, 7), _ Cells(minimum, 7))", Application.WorksheetFunction.Match("Zusammenfassung!A2", _ "Pretests2!Range(Cells(2, 3), Cells(minimum, 3))", 1)).End(xlUp).Row

Dim wsPT2 As Worksheet … Set wsPT2 = Sheets("Pretests2") With WorksheetFunction Range("B2") = .Index(wsPT2.Range(wsPT2.Cells(2, 7), wsPT2.Cells(minimum, 7)), _ .Match(Sheets("Zusammenfassung").Range("A2"), wsPT2.Range( _ wsPT2.Cells(2, 3), wsPT2.Cells(minimum, 3)), 1)).End(xlUp).Row End With

Beliebteste Forumthreads (12 Monate)

Unterschiedlich lange Dateinreihen Mittelwerte

36 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

36
Beiträge zum Forumthread

Beiträge zu diesem Forumthread