ja, wenn ich das wüßte !!!

Stephan · 2004-10-01T15:22:39+00:00

Hallo! Mein Problem ist: ich möchte in einem Excel-Formular einen Wert dort eintragen, wo schon ein Wert steht und erreichen, daß der "alte" Wert mit dem "neuen" Wert addiert wird und dieser "addierte" Wert dann dort steht, wo zuvor der "alte" Wert gestanden hat. Naja - zur Veranschaulichung vielleicht so: in einem "Kästchen" steht der Wert für "verkaufte Stückzahl" = 500. Jetzt möchteb ich an der Stelle, wo die "500" steht eine "10" (als Addition >) eingeben - und dann soll dort "510" stehen - geht das irgendwie? Hilfe wäre sehr willkommen !!! MfG Stephan

Hallo Beate,
habe nun Deine Anweisungen befolgt, und den Codes Deines Makros (s.u.) eingetragen und gespeichert.
>


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> If Target.Address = "$A$1" Then
> On Error GoTo fixit
>  Application.EnableEvents = False
>     Target.Value = 1 * Target.Value + oldvalue
>     oldvalue = Target.Value
> fixit:
>  Application.EnableEvents = True
> End If
> End Sub

Dann habe ich - wie von Dir geschrieben - diesen Code kopiert und bei "dieseArbeitsmappe" eingetragen.
Dann alles gespeichert - und es funktioniert!!! Die Ziffern, die ich in diese Zelle eintrage, werden addiert.
ABER - wenn ich die Tabelle gespeichert habe und dann wieder aufrufe, dann geht der alte Wert in der Zelle verloren und nur der "addierte" Wert bleibt. Danach aber kann wieder addiert werden.
Ich habe dann versuchsweise den zweiten Code von Dir, den Du auf den Hinweis von Jens hin geschrieben hattest in "dieseArbeitsmappe" eingetragen - leider ohne Erfolgt ... auch dann geht der "alte" Wert nach einem Neustart der Tabelle verloren :-((
Kannst Du mir vielleicht die Codes, die ich in die jeweilgen Stellen "Tabelle" und "dieseArbeitsmappe" eintragen muß noch einmal vollständig ("zum Abschreiben") mitteilen?
Wenn das zuviel verlangt ist: ich kann mir auch damit behelfen, daß ich nach einem Neustart der Tabellen die Zellen mit den dann dort vorhandenen Ziffern noch einmal (über)schreibe - danach kann ich ja die Zahlen wieder addieren!
Vielen Dank für Deine Geduld unf Deine Mühen !!
Stephan

Hallo Stephan,
Step by step:
-------------------------------------------------------------------------------------
füge folgenden Code (wirkt sich auf A1 aus) ins Codefenster der Tabelle:
Dim oldvalue As Double


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
On Error GoTo fixit
Application.EnableEvents = False
Target.Value = 1 * Target.Value + oldvalue
oldvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub

-----------------------------------------------------------------------------------
Füge ins Codefenster "dieseArbeitsmappe" folgenden Code, dann speichern und schließen, ab dem nächsten Dateistart steht der alte Wert dann z.V. (bei mir jedenfalls):


Private Sub Workbook_Open()
Worksheets("Tabelle1").Range("$A$1").Value = Worksheets("Tabelle1").Range("$A$1").Value
End Sub

Kopiere die Codes rüber sonst hast du nachher Fehler wegen scheinbarer (wegen Seitenbegrenzung hier) aber nicht existenter Zeilenumbrüche.
----------------------------------------------------------------------------------
Wenn du das ganze für Bereich/e, Spalte/n, Zeile/n gelten soll, musst du im Worksheet_Change Makro die If-Zeile ändern und im Workbook_Open den Range-Bereich an beiden Stellen anpassen.
Hier ein paar Beispiele:
Spalte B: If Target.Column = 2 Then
Für Spalte A:D und Zeile 1-9: If Target.Column Mehr Beispiele kannst du dir eigentlich bei anderen Worksheet_Change oder aber auch bei Worksheet_SelectionChange Makros angeln, wenn du hier im Forum suchst.
Ein Teil solcher Codes findest du hier unter Services/Die Excel-FAQ/Ereignis. Wenn du nicht klar kommst, schreib mal, auf welchen Bereich es sich bei dir auswirken soll oder lad eine Beispieldatei hoch.
Übrigens Danke für die Blumen.
Beate

Forumthread: ja, wenn ich das wüßte !!!

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

ja, wenn ich das wüßte !!!

Forumthread: ja, wenn ich das wüßte !!!

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread