Sortieren von mehreren Datenreihen (X und Y Werte unterschiedlich!)

[MaxNano]

Guten Tag,

ich habe folgendes Problem:

Ich verwende einen Hall-Effekt-Sensor zur Bestimmung eines momentanen Durchflusses. Hierfür habe ich mir in Labview ein Programm geschrieben welches mir Zeit und Durchflusswerte ausgibt.
Es gibt 4 Messungen pro Probe und die Problematik des Ganzen ist, dass die Zeitwerte jeder Messung unterschiedlich sind (Sensor: Rotor der sich dreht und je nach Durchfluss ein unterschiedliches Rechtecksignal ausgibt).
Die einzelnen Daten in einem Diagramm vereinen ließe sich wie im Attachment angehängt umsetzen.
Nun möchte ich jedoch Mittelwerte der einzelnen Werte bei entsprechenden Zeiten bestimmen.
Heißt also, ich sortiere das Ganze der Größe nach (Aufsteigend 1-XXX).
Jetzt möchte ich doppelte Zeitwerte löschen, jedoch die Durchflusswerte dieser doppelten Zeitwerte auf einen Zeitwert in mehreren Y-Spalten ankoppeln.
Wie funktioniert das, jemand eine Idee?

Prinzipeill möchte ich einfach mein n=4 als Mittelwert darstellen, vielleicht gibt es ja auch einen einfacheren Lösungsansatz.
Ich hoffe das ist halbwegs verständlich und jemand kann helfen.

Gruß
MaxNano

[Fennek]

Hallo,

nach der 2-Minuten Ansicht der Daten:

Da die vier Meßwerte unterschiedlich viele Einträge haben, wird man relativ komplex zuordnen müssen. Das ist einiger Rechenaufwand, aber machbar.

Wäre es möglich mit ca 10-20 Messwerten die Ausgangslage und das Wunschergebnis von Hand erstellt zu zeigen?

mfg

[MaxNano]

Hallöle!

Hier die sortierten Daten + die ersten 15 Zeilen per Hand formatiert.
Das ganze für 900 Messwerte per Hand für 8 Datensätze a jeweils 900 Werten würde mich Tage kosten.

Gruß
MaxNano

[shift-del]

Moin

Ich dachte es geht um einen Mittelwert.

[Fennek]

Hallo,

wenn man gleich x-Werte in (nur) 1 Zeile schreibt und das Eergebnis in ein neues Sheet audgibt, könnte es so sein:

Code:

Sub F_en()
Dim Ar()
mx = Application.Max(Columns(1))
ReDim Ar(Int(mx + 1), 4)
Rng = Cells(1).CurrentRegion

For i = 2 To UBound(Rng)
    If Rng(i, 2) <> 0 Then Ar(Rng(i, 1), 1) = Rng(i, 2)
    If Rng(i, 3) <> 0 Then Ar(Rng(i, 1), 2) = Rng(i, 3)
    If Rng(i, 4) <> 0 Then Ar(Rng(i, 1), 3) = Rng(i, 4)
    If Rng(i, 5) <> 0 Then Ar(Rng(i, 1), 4) = Rng(i, 5)
Next i
For i = 0 To UBound(Ar)
    Ar(i, 0) = i
Next i
Sheets(2).Cells(2).Resize(mx + 1, 5) = Ar
End Sub

In der eersten Datei beträgt die Laufzeit unter 2 Sekunden.

mfg

[snb]

In deiner Tabelle sind die 'Zeiten' nicht identisch (15,9999999999951 und 15,9999999999993).

Wenn sie identisch sind kannst du am einfachsten ein Pivottable verwenden.

[MaxNano]

Lassen sich die Zeiten denn "runden"?
Also einfach vereinheitlichen, dass 1=1 und 421=421?

Gruß

MaxNano

[Fennek]

Wenn man mit wenigen Klicks Spalte A mit =Runden(A1;0) und copy-pasteValue die Werte auf Integer brngt, geht Pivot.

Das ist einfacher als per VBA.

[snb]

schau mal

[MaxNano]

VIelen Dank snb!
Genau so sollte das aussehen.
Habe es selbst versucht, nur addiert er mir in meiner Pivottabelle die einzelnen Werte, falls bei gleichen Zeiten mehrere Werte einer Spalte auftauchen.
Bei dir nimmt er einfach den Durchschnitt. Finde gerade diese Einstelloption nicht, wo wäre diese zufinden?

Gruß
MaxNano