Hallo und Moin! :)
Ich habe eine Frage und hoffe hier auf Hilfe.
Ich habe einen Datensatz (Auszug ist unten angehängt) mit über 80000 Zeilen.
Es handelt sich um Beobachtungen von rund 300 Tieren, bei denen Gewichtsmessungen durchgeführt wurden.
Die Spalte "Milchcharakter" enthält bei jedem Tier nur einmal einen Wert.
Nun möchte ich die Gewichtsmessungen um diese "Milchcharakter-Bewertung" mitteln.
In dem angehängten Datensatz habe ich das "zu Fuß" über =Mittelwert(Zellen) gemacht. Aber bei so vielen Daten hoffe ich auf eine einfachere Lösung.
Vielleicht mit WENN-DANN? ALso: Wenn in der Spalte "Milchcharakter" ein Wert auftaucht, dann soll +/- 3 Tage gemittelt werden.
Kann mir jemand helfen? Das wäre großartig!!
Hi,
deine Beispieltabelle ist leider für mich nicht ausagefähig genug, dass dir gezielt helfen zu können. Bitte baue deine Datei originalgetreu auf - etwa 15-20 Datensätze sind ausreichend.
Hallo! :)
Vielen Dank für deine Antwort.
Ich habe dir noch einen größeren Datensatz angehängt.
Reicht das aus? und verstehst du mein Problem? Ich hoffe es ist nicht allzu unverständlich!
Hallo,
mein Vorredner hat natürlich recht, aber ich könnte mir einen Ansatz vorstellen, aber nicht als Formel (kann ich nicht), sondern mit VBA.
Aus Erfahrung fange ich aber erst nach einer Bestätigung dieser Möglichkeit an.
mfg
Hallo Stella,
Du hattest es doch fast fertig. Ab D5 diese Formel einfach runterziehen/-kopieren:
=WENN(B5="";"";MITTELWERT(C2:C8))
Gruß Uwe
Hallo Uwe!
Vielen Dank für deine Antwort!
Ich möchte gerne den Mittelwert der Gewichte um einen "Bewertungstag für Milchcharakter" bilden.
Also zB in B49 ist eine Bewertung und da möchte ich den Mittelwert +/-3Tage für das Gewicht bilden.
Der nächste Wert wäre dann erst wieder in B291 und da suche ich wieder den Mittelwert, etc
Vielleicht hast du da noch eine Idee?
Hallo,
hier ein vba-Code: mit alt-F11 den Editor öffnen, mit alt-e m ein neues Modul einfügen und den Code ins Fenster kopieren. Dann oben auf den Knopf "Start" drücken.
Code:
Sub Fen()
For Each ar In Columns(2).SpecialCells(2, 1).Areas
If ar.Count = 1 Then
ar.Offset(, 2).FormulaR1C1 = "=AVERAGE(R[-3]C[-1]:R[2]C[-1])"
End If
Next ar
End Sub
mfg
Hallo Fennek!
Vielen lieben Dank für deine Mühe!
Ich habe den Code eingefügt, aber wenn ich auf Start drücke kommt:
"Fehler beim Kompilieren: Syntaxfehler"
Kannst du mir sagen, was das bedeutet?
DANKE! :)
Hallo Stella,
der Code ist so bei mir gelaufen, eine Ferndiagnose ist nicht so einfach.
Nutzt du "libre office": dann müßte vor "Sub" ein Zeile mit "Option VBASupport 1" eingefügt werden
in xl: werden Makros in den Optionen, Trustcenter zugelassen?
in welcher Zeile bleibt der code hängen? (nicht beenden, sondern "debuggen" drücken)
Am besten: kennst du jemanden mit zumindest Basiskenntnissen in vba?
mfg
Hi Fennek,
ar ist nicht als Variable definiert - hier mosert der Debugger.
[
Bild bitte so als Datei hochladen: Klick mich!]