Office: Summe von gleicher Zelle

Guten Tag

Ich stehe vor folgendes Problem und möchte es ganz kurz fassen:

Die Zelle A3 (Tage) bezieht sich auf Zelle E3 (Variable).
Was muss ich tun damit sich, wenn ich die Variable ändere, die Anzahl Tage mit der neuen Variable addiert wird. Also wie mit einem Taschenrechner?

Geht das mit einer Formel, oder muss dazu VBA benutzt werden?

Danke für die Auskunft

Massimo

	A	B	C	D	E
1	Tage	Kosten	Total		Variable
2
3	20	20.00 €	400.00 €		20

Zelle	Formel
A3	=Referenz
C3	=Tage*Kosten

 

Hallo Massimo,

das geht nur über VBA.
http://hajo-excel.de/chCounter3/getfile.php?id=47

Gruß Hajo

 

Hallo Hajo

Vielen Dank für die Erklärung und vor allem für die Beispielsdatei die mir sehr geholfen hat.

Ich habe noch eine Frage: Was muss ich tun wenn sich die Variable immer in der gleichen Zelle befindet, sich also nicht ändert?

Hier mein Beispiel:

	A	B	C	D
1	Summe		Variable	SFr. 50.00
2	SFr. 10.00

Und benutze dazu folgende Formel:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Eingabe As Integer
    Dim temp As Integer
    
    

    Eingabe = ActiveSheet.Cells.("D1").Value
    temp = ActiveSheet.Cells("A2") + Eingabe
    
        
      
        ' Reaktion auf Zellveränderung einschalten
        Application.EnableEvents = True
        
        

    Set Eingabe = Nothing                 ' Variable leeren
End Sub

Was mache ich falsch?

Vielen Dank

Massimo

 

Hallo Massimo,

zu Deinem Code kann ich nichts schreiben, da er mir teilweise nicht klar ist. Da mußt Du den Fragen vom dem Du den Code hastr.

Gruß Hajo

 

Hallo Massimo,

ich bin jetzt davon ausgegangen das sich die Variable immer in Spalte E befindet und auf die Zelle der gleichen Zeile in Spalte A bezieht.

Habe Dir folgendes in Deine Tabelle eingefügt.
Bei mir funktioniert es soweit.

Code:

Option Explicit

Dim eingabe As Integer      ' ist der neu eingegebene Zellwert in Spalte E
Dim altwert As Integer      ' ist der alte Zellwert in Spalte A


Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 5 Then
        
        altwert = Target.Offset(0, -4).Value
        eingabe = Target.Value
        
        Application.EnableEvents = False
        
        Target.Offset(0, -4).Value = altwert + eingabe

        Application.EnableEvents = True

        altwert = 0
        eingabe = 0
    
    End If
    
End Sub

Hoffe Dir damit ein wenig geholfen zu haben.

 

Hallo Achim

Es funktioniert!

Vielen Dank. Vielen Dank auch an Hajo!

Lieber Gruss
Massimo

 

Hi

Interessante Frage.
Könnte man dies auch mit einer normalen Formel lösen?

Gruss
Wolfgang