Mit VBA eine Wenn Dann Formel ausführen

Computer: Software & Programmierung Visual Basic
#1

Ist es möglich über VBA ein Makro zu erstellen, welches eine Wenn Dann Formel ausführt? Ich kenne mich leider kaum mit VBA aus, versuche aber gerade mich ein wenig „anzulernen“.

Im konkreten geht es darum, dass ich mir mittels Makro Zahlen aus einer anderen Datei in mein Excel Sheet ziehe. In diesen Zahlen kann es sein, dass vereinzelt eine 0 dabei ist. Diese 0 ist aber nicht gewollt und soll daher ersetzt werden als Mittlewert seiner umliegenden Zahlen (am besten wäre hier die umliegenden 4, da auch zwei 0en nach einander auftreten können). Da ich wie gesagt, die Zahlen als Makro hinzuziehe kann ich ja schlecht die Formel in die einzelnen Zeilen schreiben, sondern wollte über einen weiteren Makro diesen Fehler ausmerzen (hierzu habe ich eine Schaltfläche gebaut).

Kann mir jemand bei dem Code helfen, oder zumindest Anreize geben?

#2

Hallo Grußlose®,

Ist es möglich über VBA ein Makro zu erstellen, welches eine
Wenn Dann Formel ausführt? Ich kenne mich leider kaum mit VBA
aus, versuche aber gerade mich ein wenig „anzulernen“.

If Bedingung erfüllt Then
 ' Dann-Zweig
else
 ' Sonst-Zweig
end if

In diesen
Zahlen kann es sein, dass vereinzelt eine 0 dabei ist. Diese 0
ist aber nicht gewollt und soll daher ersetzt werden als
Mittlewert seiner umliegenden Zahlen (am besten wäre hier die
umliegenden 4,

Wenn du D8 einliest und D8 hat den Wert 0 soll stattdessen
der Mittelwert aus D6:smiley:7 u. D9:smiley:10 gebildet werden?
Mittelwertbildung ohne mitzählen der 0-Zellen oder mit?

D6 : 5
D7 : 0
D8 : 0
D9 : 0
D10: 3

Je nachdem wäre hier der MW 4, 2, oder gar 1,6

Kann mir jemand bei dem Code helfen, oder zumindest Anreize
geben?

Zeige mal bitte deine vorhandenen Codes.

Gruß
Reinhard