Hallo,
Ich habe folgendes Problem:
Ich gebe in einer Excel-Tabelle beträge ein. Die Zellen sind als Buchhaltung formatiert. Wenn jetzt in einer Zelle schon etwas steht und nachträglich in der Kategorie noch etwas hinzu kommt, dann möchte ich nur den neuen Wert eingeben und in der zelle soll dann aber die Summe des alten und des neuen Wertes stehen.
Beispeil:
Spalte B beinhaltet Ausgaben für Energie. Die einzelnen Zeilen (31 Zeilen) sind jeweils für einen Tag im Monat.
Es stehen in der Zelle B3 Ausgaben von 50 Euro. Nun kommen aber noch mal 28 Euro hinzu. Es soll nun eine Einabe in B3 von 28 möglich sein, nach welcher in B3 dann aber 78 steht!
Dies soll für einen Zellbereich von B3:B33 und D3:M3 möglich sein!
Kann mir bitte jemand helfen, ich habe nirgendwo etwas in dieser richtung finden können 
Danke
Daniel
Hallo,
Ich habe folgendes Problem:
Ich gebe in einer Excel-Tabelle beträge ein. Die Zellen sind
als Buchhaltung formatiert. Wenn jetzt in einer Zelle schon
etwas steht und nachträglich in der Kategorie noch etwas hinzu
kommt, dann möchte ich nur den neuen Wert eingeben und in der
zelle soll dann aber die Summe des alten und des neuen Wertes
stehen.
Dies soll für einen Zellbereich von B3:B33 und D3:M3 möglich
sein!
Hi Daniel,
geht nur mit VBA. Im letzten Code musst du noch die Bereiche anpassen.
Alt+F11, Einfügen Modul, folgenden Code reinkopieren:
Option Explicit
Public Merker
Jetzt Doppelklick links auf diesArbeitsmappe, folgenden Code reinkopieren:
Option Explicit
Private Sub Workbook_Open()
Worksheets(„Tabelle2“).Activate
Worksheets(„Tabelle1“).Activate
End Sub
Jetzt Doppelklick links auf Tabelle1 bzw Blattnamen, folgenden Code reinkopieren:
Option Explicit
Private Sub Worksheet\_Activate()
If Not Intersect(ActiveCell, Range("A1:A3")) Is Nothing Or Not Intersect(ActiveCell, Range("B8:B10")) Is Nothing Then
Merker = ActiveCell.Value
End If
End Sub
Private Sub Worksheet\_Change(ByVal Target As Range)
On Error GoTo ende 'falls mal keine Zahlen eingegeben werden
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A3")) Is Nothing Or Not Intersect(Target, Range("B8:B10")) Is Nothing Then
Target.Value = Target.Value + Merker
End If
ende:
Application.EnableEvents = True
End Sub
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A3")) Is Nothing Or Not Intersect(Target, Range("B8:B10")) Is Nothing Then
Merker = Target.Value
End If
End Sub
Editor schliessen, Datei schliessen, neu starten.
Gruß
Reionhard
Danke für die schnelle Antwort!
Leider ergibt sich nun ein neues Problem:
Ich kann nun Zelleninhalte nicht mehr löschen, wenn z.b. eine Fehleingabe gemacht wurde, oder eine Ausgabe doch nicht angefallen ist.
Wie kann ich dieses Problem jetzt lösen?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für die schnelle Antwort!
Leider ergibt sich nun ein neues Problem:
Ich kann nun Zelleninhalte nicht mehr löschen, wenn z.b. eine
Fehleingabe gemacht wurde, oder eine Ausgabe doch nicht
angefallen ist.
Wie kann ich dieses Problem jetzt lösen?
Hi Daniel,
wenn du fälschlicherweise eine „5“ eingegeben hast müßte dann doch die Eingabe von "-5) das Problem lösen!?
Gruß
Reinhard