Suche Formel Addieren.

[Borusse]

Hallo Gemeinde.

Bin auf der suche nach einer Formel und weiß nicht, wie ich das umsetzen kann.
Beispiel:

Habe A1 und A2 nun gebe ich in A2 eine Zahl ein die in A1 Addiert werden soll. Nun soll aber die Zahl in A2 gelöscht werden bzw ich gebe eine neue Zahl in A2 ein diese dann in A1 Addiert wird ohne die Zahl von der ersten Eingabe gelöscht wird. 

Ist das möglich?

Danke im Voraus für Hilfe.

Gruß Andi

[Kuwer]

Hallo Andi,

per VBA-Ereignisauswertung würde das gehen.
In das VBA-Modul des entsprechenden Tabellenblattes (Rechtsklick auf den Tabellenreiter > Code anzeigen) kommt folgender Code:

' **************************************************************
'  Modul:  Tabelle2  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$2" Then
   On Error Resume Next
   Application.EnableEvents = False
   Target.Activate
   Range("A1").Value = Range("A1").Value + Target.Value
   Target = ""
   Application.EnableEvents = True
   On Error GoTo 0
 End If
End Sub

Code eingefügt mit: Excel Code Jeanie


Gruß Uwe

[Borusse]

Uff, das versehe ich jetzt nicht, was muss ich da tun.

[steve1da]

Hola,

zur Info...

http://ms-office-forum.net/forum/showthr...p?t=340903

Gruß,
steve1da

[Rabe]

Hi,

Uff, das versehe ich jetzt nicht, was muss ich da tun.

schau mal hier:
http://www.online-excel.de/excel/singsel_vba.php?f=44

Im Namen des Makros steht was von "Worksheet", also gehört es in das Codefenster der Tabelle.
Schnell zu erreichen mit Rechtsklick auf den Tabellenreiter und Auswahl von "Code anzeigen", dort dann in das rechte Fenster einfügen.

[Kuwer]

Hi,

Uff, das versehe ich jetzt nicht, was muss ich da tun.

hatte ich doch geschrieben.

Gruß Uwe

[Borusse]

 Hallo Andi,

per VBA-Ereignisauswertung würde das gehen.
In das VBA-Modul des entsprechenden Tabellenblattes (Rechtsklick auf den Tabellenreiter > Code anzeigen) kommt folgender Code:

' **************************************************************
'  Modul:  Tabelle2  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$2" Then
   On Error Resume Next
   Application.EnableEvents = False
   Target.Activate
   Range("A1").Value = Range("A1").Value + Target.Value
   Target = ""
   Application.EnableEvents = True
   On Error GoTo 0
 End If
End Sub

Code eingefügt mit: Excel Code Jeanie


Gruß Uwe

[Kuwer]

Hallo Andi,

die einfachste Variante ist, diese Anweisung(en) für jede Zellkombination einfach untereinander zu schreiben.
Hier als Beispiel für A2/A1, B2/B1 und C2/C1 :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$2" Then
   On Error Resume Next
   Application.EnableEvents = False
   Target.Activate
   Range("A1").Value = Range("A1").Value + Target.Value
   Target = ""
   Application.EnableEvents = True
   On Error GoTo 0
 End If

 If Target.Address = "$B$2" Then
   On Error Resume Next
   Application.EnableEvents = False
   Target.Activate
   Range("B1").Value = Range("B1").Value + Target.Value
   Target = ""
   Application.EnableEvents = True
   On Error GoTo 0
 End If

 If Target.Address = "$C$2" Then
   On Error Resume Next
   Application.EnableEvents = False
   Target.Activate
   Range("C1").Value = Range("C1").Value + Target.Value
   Target = ""
   Application.EnableEvents = True
   On Error GoTo 0
 End If
End Sub

Code eingefügt mit: Excel Code Jeanie


Gruß Uwe

[Borusse]

Bekomme einen an die Erbse  Nehme ich eine Leere Tabelle und füge es ein geht es, nehme ich meine Vorgefertigte Tabelle bekomme ich es einfach nicht hin.Ne frage, kannst Du da mal ein Auge drauf werfen.  "untertänig gucken":39:

[Borusse]

Schade.

Also so bald ich aus dem Bereich A2 und A1 raus gehe, funktioniert das einfach nicht mehr