Formel wenn Bedingung erfüllt

Hallo zusammen,
leider bin ich mit meinem Latein am Ende und bitte Euch um eine Eurer genialen Excell-Gehirnzellen.
Anbei ein Ausschnitt meiner Tabelle.
Ziel ist es; den durchschnittlichen Lagerbestand zu berechnen (R4).
Dafür berechne ich D4+E2-E3 und kopiere die Formel nach rechts. Jetzt soll Excell diese Formel in jeder vierten Zeile anwenden (eine Vereinfachung für mich, weil ich dachte es geht mit der Formel: wenn rest zeile, jedoch ein Trugschluss: excell überschreibt die Zeilen die dazwischen liegen)
Ich möchte gern, dass Excell diese einfache Formel immer dann anwendet, wenn in Zelle D eine Zahl größer/ gleich 0 auftaucht...wie stelle ich das an?
Für jede Hilfe bin ich Euch sehr dankbar.
Viele Grüße
Orgensek
https://www.herber.de/bbs/user/92098.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FormelWennBestandGefuellt() Dim r As Range Const FormelSpalte As Long = 18 'Formel in Spalte 18 = R Const BestandSpalte As Long = 4 'Bestand in Zeile 4 Const firstRow As Long = 2 'ab Zeile 2 Dim lastRow As Long With ActiveSheet lastRow = .Cells(.Rows.Count, BestandSpalte).End(xlUp).Row For Each r In .Range(.Cells(firstRow, BestandSpalte), .Cells(lastRow, BestandSpalte)) If r.Value "" Then .Cells(r.Row, FormelSpalte).FormulaR1C1 = "=RC[-14]+R[-2]C[-13]-R[-1]C[-13]" End If Next r End With End Sub

Hallo Orgensek,
das Makro macht genau was du im ersten Beitrag abgefordert hast :-)
Im Endeffekt musst du deine Formelbedarfe einfach alle in die Schleife schreiben
With ActiveSheet
lastRow = .Cells(.Rows.Count, BestandSpalte).End(xlUp).Row
For Each r In .Range(.Cells(firstRow, BestandSpalte), .Cells(lastRow, BestandSpalte))
HIER wird für jede Spalte geprüft und eventuell etwas getan
Next r
End With
End Sub
Zum Beispiel Schreibe ich ja eine Formel in Spalte R, wenn Spalte D leer ist:
If r.Value "" Then
.Cells(r.Row, FormelSpalte).FormulaR1C1 = "=RC[-14]+R[-2]C[-13]-R[-1]C[-13]"
End If
Da kannst du jetzt Bedingungen und Formeln dazu schreiben.
das könnte so aussehen:
if .cells(r.row, 2).value = "AB/ Monatsendbestände" then
.Cells(r.row, 16).FormulaR1C1 = "=DeineFormel"
end if
das schreib dann eine Formel in SPalte P, wenn die Zeile "AB/Monatsendbestände" erreicht sind.
So bastelst du dir das zusammen, musst vielleicht etwas mit den Reihenfolgen spielen. Tipp: Die Formeln im R1C1 Format bekommst du am einfachsten, wenn du sie einmal direkt in Excel eingibst, den Makrorekorder anwirfst, die Zelle anwählst, F2, Enter, Rekorder aus. Jetzt kopierst du dir die R1C1-Version der Formel direkt aus dem aufgezeichneten Makro.
Grüße und viel Spaß beim basteln,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

356 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel wenn Bedingung erfüllt

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

356 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread