Mittelwert und Überschreibung von Zellen
18.05.2021 14:32:18
Zellen
ich beschäftige mich seit kurzem mit VBA und möchte mir ein Tool basteln. Jedoch reichen meine Kenntnisse noch nicht aus.
Ich hoffe ihr könnt mir weiterhelfen!
Mein Ziel:
In die Zelle J3 soll aus den letzten 10 Zeilen einer Spalte F (F1:F1000) der Mittelwert gebildet werden. Dann soll die Zelle A3 berechnet werden (abhängig von J3). Der in A3 erzeugt Wert soll die 10 letzten Zeilen in F überschreiben. Zum Schluss soll die Spalte F nach der Größe sortiert werden. Dieser Ablauf soll für die Tabelle A3:C5 durchgeführt werden.
Was ich bereits programmiert habe:
Option Explicit
Sub Überschreiben()
Dim rngCell As Excel.Range
' genutzte Tabelle
For Each rngCell In Range("A3:D6").Cells
' die 10 letzten Zellen aus F sollen mit dem Wert aus A3 überschrieben werden
Range("F992:F1001").Value = rngCell.Value
' die Spalte F soll nach den Zahlen sortiert werden
Range("F2:F1001").Sort Range("F1"), xlAscending
' als nächstes wird die nächste Zelle überschrieben
Next
End Sub
Vielen Dank im Voraus.
Anzeige