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
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
Uff, das versehe ich jetzt nicht, was muss ich da tun.
Hi,
(15.03.2017, 12:46)Borusse schrieb: [ -> ]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.
Hi,
(15.03.2017, 12:46)Borusse schrieb: [ -> ]Uff, das versehe ich jetzt nicht, was muss ich da tun.
hatte ich doch geschrieben.
Gruß Uwe
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
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:
Schade.
Also so bald ich aus dem Bereich A2 und A1 raus gehe, funktioniert das einfach nicht mehr