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
Wie bekomme ich es hin, den Mittelwert in J3 und die Berechnung der einzelnen Zellen in der Tabelle vor Überschreibung zu bilden?Vielen Dank im Voraus.