Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

Code ändern
#1
Ich weis nicht wo ich es einstellen soll.

Ich möchte gern folgendes:

A1 hat den Wert 10
B1 hat den Wert 5
jetzt möchte ich das der A1 zu B1 addiert wird
A1=10
B1=15
Gebe ich einen neuen Wert in A1 ein z.B. 5 müsste demnach in B1 20 stehen

Dazu habe ich einen Code gefunden.
Jetzt möchte ich dies aber noch zusätzlich in 2 anderen Zeilen haben...also in Zeile 5 und 10

Kann mir jemand unten den Code dementsprächend ändern.
Schonmal danke im voraus.


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then
      Range("B1").Value = Range("B1").Value + Target.Value
   End If
End Sub
to top
#2
Hallo,


da müssen aber noch deutlich mehr Infos her.
Gruß
Opa Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
to top
#3
Für folgendes Beispiel habe ich ja nen Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then
      Range("B1").Value = Range("B1").Value + Target.Value
   End If
End Sub

Der Code entspricht folgendes:

A1 hat den Wert 10
B1 hat den Wert 5
jetzt möchte ich das der A1 zu B1 addiert wird
A1=10
B1=15
Gebe ich einen neuen Wert in A1 ein z.B. 5 müsste demnach in B1 20 stehen


Jetzt möchte ich gerne noch zwei weitere Zeilen.

z.B.

A2 hat den Wert 10
B2 hat den Wert 5
jetzt möchte ich das der A2 zu B2 addiert wird
A2=10
B2=15
Gebe ich einen neuen Wert in A2 ein z.B. 5 müsste demnach in B2 20 stehen

und dann noch mit A3 und B3
to top
#4
Hi,

(24.03.2016, 19:02)jjradu schrieb: Gebe ich einen neuen Wert in A2 ein z.B. 5 müsste demnach in B2 20 stehen

und dann noch mit A3 und B3

nu sei doch nicht so sparsam, schreib vollständige Sätze, tu so, als ob wir doof wären.

Was soll mit A3 und B3?
A3 und B3 auch zu B2 addieren oder der Wert von B2 in A3 und B3 kopiert werden oder ...?
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#5
Ich weis einfach nicht wie ich es genau schreiben soll.....bin absoluter Anfänger in Sachen Excel.


Ist es möglich den Wert einer Zelle (Eingabe) zu dem Wert einer anderen Zelle (Summe) zu addieren und den bestehenden Wert in Summe nicht zu überschreiben sondern aufzuaddieren??

Und dies müsste ich in 3 Zeilen haben.

Für eine Zeile haben ich ja den Code.

Jetzt müsste der Code geändert werden, so das ich in 3 Zeilen das anwenden kann.

Also in A1 gebe ich neuen Wert ein und in B1 kommt Ergebniss raus. Gebe ich in A1 neue Zahl ein, wird er zum letzten Ergebniss in B1 addiert und nicht überschrieben.

Und ich möchte, das ich das gleiche dann in zusätzlichen 2 anderen Zeilen habe.
to top
#6
Hallo,

meinst Du so?

PHP-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If 
Not Intersect(TargetRange("A1:A3")) Is Nothing Then
'   If Target.Address = "$A$1" Then
'      
Range("B1").Value Range("B1").Value Target.Value
      Target
.Cells(1).Offset(, 1).Value Target.Cells(1).Offset(, 1).Value Target.Value
   End 
If
End Sub 
Gruß Stefan
Win 7 / Office 2007
[-] Folgende(r) 1 Benutzer sagt Danke an Steffl für diesen Beitrag:
  • jjradu
to top
#7
Hallo Stefan

Vielen Dank für deine Hilfe.
Genauso habe ich es gesucht.
Nochmals vielen vielen Dank

Gruß Jürgen
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste