Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates.
x
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?
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.
