WENN/DANN Bedingung möglich?

[stella_gen]

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!!

[WillWissen]

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.

[stella_gen]

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!

[Fennek]

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

[Kuwer]

Hallo Stella,

Du hattest es doch fast fertig. Ab D5 diese Formel einfach runterziehen/-kopieren:

=WENN(B5="";"";MITTELWERT(C2:C8))

Gruß Uwe

[stella_gen]

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?

[Fennek]

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

[stella_gen]

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! :)

[Fennek]

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

[WillWissen]

Hi Fennek,

ar ist nicht als Variable definiert - hier mosert der Debugger.

[
Bild bitte so als Datei hochladen: Klick mich!
]