Office: aufaddieren per vba

Ich bin heute irgendwie blockiert.
Der Wert aus Tabelle1 Zelle a3 soll zu dem Wert aus Tabelle2 Zelle b6 addiert werden sobald er sich ändert.
Klingt lächerlich aber heute ist scheinbar nicht mein Tag.

 

liegt bestimmt am Wetter... ;-)

Ok, 2 Teilbereiche...

a) Addition
cells(y3,x3).value = cells(y1,x1).value + cells(y2,x2).value

b) wenn Änderung
Abgreifen des Ereignisses "Change" und überprüfen, ob die Änderung in A3 passiert ist.

Grobe Richtung so in der Art (Code in "tabelle1"):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("a3") Then

        Worksheets("tabelle2").Range("b6").Value = Worksheets("tabelle1").Range("a3").Value + Worksheets("tabelle2").Range("tabelle2!b6").Value

    End If

End Sub

Gruß, Michael

 

Hallo!

Falls mit dem "er" der Wert in Tabelle1!A3 gemeint ist:
In den Codebereich von "Tabelle1" folgendes VBA-Makro kopieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then
    With Worksheets("Tabelle2").Range("B6")
      .Value = .Value + Target.Value
    End With
  End If
End Sub

Es bewirkt Folgendes: Wird im Arbeitsblatt "Tabelle1" das Change-Ereignis ausgelöst wird - wobei diese Wertänderung in Zelle A3 stattfindet - , dann wird der Wert dieser Zelle zum Wert der Zelle Tabelle2!B6 dazuaddiert.
Dieses Makro verhindert, dass, falls in irgendeiner anderen Zelle als Zelle A3 von Tabelle1 sich etwas ändert, trotzdem der Wert von A3 immer wieder auf Tabelle2!B6 draufaddiert wird - was zu einer "Additions-Orgie" führen würde.

 

Hallo Leute,
vielen Dank für die rasche Antwort.
läuft problemlos.
Ihr seid echt die Größten :mrgreen: