Office 2010: ZellBezüge Spalte A1 und B1

[MartinaBauer]

Hallo,

ich bin die Martina, bin durch Zufall auf dieses Forum gestoßen und hab mich gleich angemeldet.
Total Klasse, was man hier es lesen und lernen kann!!!

Auf meinem Rechner benutze ich das Office 2010, bin noch ein Anfänger aber ich möchte Excel lernen um halt im täglichen Arbeitsleben besser klar zukommen.

Also zum Punkt.

Habe in meiner Exceltabelle als Beispel 2 Spalten A1 und B1.

1: Eingabe 5 in der Spalte A1-->nach Eingabe wechselt die 5 in die Spalte B1.
   wenn möglich, soll die Zahl 5 in der Spalte A1 danach nicht mehr zu sehen sein.

2: Eingabe 3 in der Spalte A1-->nach Eingabe wechselt die 3 in die Spalte B1 und soll mit der 5 addiert werden, somit steht jetzt in der Spalte B1 eine 8.

3: Eingabe 2 in der Spalte A1-->nach Eingabe wechselt die 2 in die Spalte B1 und soll mit der 8 addiert werden, somit steht jetzt in der Spalte B1 eine 10.


Ist das machbar?
bin für alles dankbar:-)

lgMartina

[Officer]

Hallo Martina,

mit folgendem VBA-Code kannst Du die Zahlen aus A1 in Zelle B1 addieren.
Wichtig ist, dass Du den Code im Codemodul des entsprechenden Tabellenblatts einfügst, damit das Change-Ereignis ausgeführt wird.

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2. If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
3.  
4.   '** Wert in B1 übertragen
5.  With ActiveSheet
6.     .Range("B1").Value = .Range("B1").Value + .Range("A1").Value
7.   End With
8.  
9. End If
10.  
11. End Sub
12.  

Gruß

Officer

[MartinaBauer]

Hallo Officer,

deine Formel habe ich kopiert und dann im VBA mit ALT+F11 geöffnet und sie dann dort rein kopiert.
Soweit alles gut, es hat supi funktioniert...echt super von dir... Danke.

Leider hab ich etwas vergessen.
Meine Tabelle hat ja mindestens 50 Zeilen, es können auch mehr werden. An den Spalten ändert sich nix.
Alle Zeilen, die ich noch hinzufüge, sollen in den Spalten A und B die selbe Funktion haben.

Sorry das hätte ich auch sofort sagen können, geht das auch..?
lgmartina

[Officer]

Hallo Martina,

ja klar, das geht auch! Mit VBA geht (fast) alles!
Es ist nur eine kleine Anpassung notwendig. Hier der geänderte Code:

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2. If Not Application.Intersect(Target, Range("A1:A50")) Is Nothing Then
3.  
4.   '** Wert in Spalte B übertragen
5.  With ActiveSheet
6.     .Cells(Target.Row, 2).Value = .Cells(Target.Row, 2).Value + .Cells(Target.Row, 1).Value
7.   End With
8.  
9. End If
10.  
11. End Sub
12.  

Gruß

Officer

[Officer]

Hallo Martina,

wenn du andere Spalten ansprechen möchtest, müssen natürlich die Bezüge entsprechend angepasst werden. Der beigefügte Code beziehst sich nun auf die Spalten J (Eingabe) und Spalte K (Ausgabe/Addition).

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2. If Not Application.Intersect(Target, Range("J6:J50")) Is Nothing Then
3.  
4.   '** Wert in Spalte K übertragen
5. With ActiveSheet
6.     .Cells(Target.Row, 11).Value = .Cells(Target.Row, 11).Value + .Cells(Target.Row, 10).Value
7.   End With
8.  
9. End If
10.  
11. End Sub
12.  

Darüber hinaus habe ich den Code auch gleich in die Beispieldatei eingefügt, welche ich als Anlage beigefügt habe.

Jetzt sollte es aber funzen!

Gruß

Officer

[MartinaBauer]

Hallo Officer,

hat alles supi geklappt. Danke bist ein echter Profi.
bis denne mal...
martina