WENN/DANN Bedingung möglich?

[WillWissen]

Hi Stella,

füge diesen Code im Editor ein:

Code:

Option Explicit

Sub Fen()
Dim ar As Variant
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

Die fehlende Dimensionierung habe ich ergänzt; bei mir funktioniert das Makro.

@unsere VBA-Spezies: ist die Variant hier die richtige Wahl? Oder würde Integer reichen?

[stella_gen]

Bei mir ist nach der Fehlermeldung die Zeile 3 ("If ar.count = 1 Then") markiert.

 Ich nutze Excel2016 und Makros sind eigentlich zugelassen...

Ich werde nochmal ein wenig rumprobieren, aber wenn Euch noch eine Lösung einfällt, dann nehme ich die gerne

Vielen Dank nochmal!!

[stella_gen]

Hallo Günter!

Danke für deine Hilfe!

Leider wird mir auch mit deinem Code die Fehlermeldung angezeigt.

[WillWissen]

Hi,

dann lade doch bitte nochmals deine Datei incl. des Makros hoch.

[stella_gen]

Hier kommt der Datensatz :)

[WillWissen]

Hier kommt der komplette Datensatz :)

Hi,

editiert, da falsche Datei runtergeladen. 

[stella_gen]

ich glaube jetzt ist es der Richtige oder?

Oh man ich bin aber auch echt unbedarft...

[WillWissen]

Hi,

füge den Code hinter das Tabellenblatt ein, nicht in ein Modul. Dann funktioniert das Makro. Zumindest in der Datei, die ich angehängt habe.



  stella_gen-daten_ausschnitt_neu.xlsm (Größe: 22,07 KB / Downloads: 1)

[Kuwer]

Hallo Stella,

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?

Du brauchst mir das nicht noch einmal erklären, sondern einfach mal meinen Vorschlag ausprobieren:
Die Formel in D5 einfügen, dann D5 markieren und anschließend einen Doppelklick auf die rechte untere Ecke des Markierungsrahmens (wenn ein Pluszeichen erscheint) machen. Dadurch wird die Formel bis zum Ende kopiert und automatisch angepasst.

Gruß Uwe

[stella_gen]

Oh ich habe versucht es auf meinen kompletten Datensatz anzuwenden, aber die Fehlermeldung kommt wieder...

Vielleicht könntest du es dir noch einmal im kompletten Datensatz (angehängt) anschauen?

Das wäre großartig!! :)