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?
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!!
Hallo Günter!
Danke für deine Hilfe!
Leider wird mir auch mit deinem Code die Fehlermeldung angezeigt.
Hi,
dann lade doch bitte nochmals deine Datei incl. des Makros hoch.
Hier kommt der Datensatz :)
(01.12.2016, 23:09)stella_gen schrieb: [ -> ]Hier kommt der komplette Datensatz :)
Hi,
editiert, da falsche Datei runtergeladen.
ich glaube jetzt ist es der Richtige oder?
Oh man ich bin aber auch echt unbedarft...
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.
[
attachment=8270]
Hallo Stella,
(01.12.2016, 22:00)stella_gen schrieb: [ -> ]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
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!! :)