---

Also jetzt bin ich einem Problem, das ich jetzt schon 2 mal hatte auf den Grund gegangen. Zumindest habe ich es versucht.

Ich möchte eine simple Funktion definieren, welche mit die Summe zweier Zellen liefert. Dies tue ich in einem Modul mit folgendem Code:

Option Explicit

Public Function Addition() As Double
    Addition = ActiveCell.Offset(0, -2).Value + ActiveCell.Offset(0, -1).Value
End Function

Dann schreibe ich in der EXCEL Tabelle in Zelle A1 den Wert 3, in Zelle B1 den Wert 5 und in Zelle C3 schreibe ich "=Addition()".
So weit so gut. Das funktioniert. Mein Problem geht jetzt allerdings los. Ändere ich entweder die Zelle A1 oder B1 möchte ich gerne, das die Summe in C1 automatisch aktualisiert wird, tut er aber nicht und ich kriege das auch nicht hin.
Das muß doch möglich sein oder?

------------------
Grüßle
Gregi

P.S.: Bitte nicht böse sein, kann leider aus technischen Gründen keine Units vergeben!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ gregi

Schau mal im Visual Basic Editor unter z.B. Tabelle1 > Eigenschaftsfenster > Wert > "EableCalculation" > sollte auf "True" stehen.

Tschüß Frank !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Steht auf Enable!

Application.Volatile hat übrigens auch nicht den gewünschten Erfolg

------------------
Grüßle
Gregi

P.S.: Bitte nicht böse sein, kann leider aus technischen Gründen keine Units vergeben!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gregi,

Wird die Funktion beim Ändern der Zellen A1 und B1 aufgerufen?
Ich würde direkt die Formel in die Zelle schreiben, z.B.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Target.Formula = "=OFFSET(" & Target.Address & ",0,-2)+OFFSET(" & Target.Address & ",0,-1)"
  Me.Cells(Target.Row + 1, Target.Column).Activate
End Sub

HTH pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
wenn du deiner Funktion die Variablen mit übergibst '=addition(A1;B1)' dann funktionierts auch mit dem Nachbarn.
Du mußt dann die Funktion wie folgt abändern:

Public Function addition(a, b) As Double
    addition = a + b
End Function

Läßt du die Funktion wie gehabt, dann läuft das Ergebnis jedesmal nach Änderung von einem Wert auf Fehler, da zum Zeitpunkt der Änderung die aktive Zelle ja entweder A1 oder B1 ist, und von dort aus der Offset nicht möglich ist.

Gruß
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP