[wbendl]

Hi!

Es fehlt tatsächlich eine "End If". Vermutlich am Schluß, aber sicher kannst das nur du wissen. Außerdem fehlt next, um die Schleife zu schließen.

zelle.Value(3, 3) dürfte auch kein korrekter Ausdruck sein.

Insgesamt scheint es nicht die Umsetzung deiner Formel zu sein. Die ist mir aber zu kompliziert, um mich damit genau auseinander zu setzen.

Hier ein paar grundsätzliche Infos:
- Beginne jedes Modul mit der Zeile:
Option Explicit
Damit wird die Deklaration der Variablen erzwungen. Das vermeidet Fehler.
- Um eine Formel zu ersetzen braucht es eine Funktion mit Rückgabewert. Dieser wird in der Zelle angezeigt.

Eine Lösung mit For Each dürfte nicht zweckmäßig sein. Außerdem ist der Bereich nicht angegeben.

Wenn du mit VBA keine Erfahrung hast, beginne mit einer einfachen Funktion.
Oder beschreib mir verständlich, was du erreiche willst. Ich bring dann ein Beispiel, das du erweitern/anpassen kannst.


mfg

WB