Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Endlosformeln

Endlosformeln
24.02.2006 08:56:26
Caro
Guten morgen...
ich hab da folgendes Problem:
ich habe:
Tabelle 1
- 1 Eingabefeld
- 1 Button Zugang
- 1 Button Abgang
Tabelle 2
- Feld: Anfangsbestand
- Feld: jetztiger Bestand
Ich möchte, dass das was im Eingabefeld seht je nach Button addiert oder subtrahiert wird. Sobald das geschehen ist, soll das Eingabefeld wieder leer werden, so dass ich neue Eingaben machen kann.
Danke
Caro

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Endlosformeln
24.02.2006 09:07:27
MichaV
Hallo Caro,
Eingabezelle ist Tabelle1!A1, jetziger Bestand ist Tabelle2!A1. Lege in Tabelle1 2 Buttons an, gehe mit der rechten Maustaste auf die Lasche von Tabelle1, Code anzeigen, diesen Code in das rechte Fenster kopieren:

Option Explicit
Private Sub CommandButton1_Click()
'Zugang
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle2").Range("A1") + Range("a1")
Range("a1").ClearContents
End Sub
Private Sub CommandButton2_Click()
'Abgang
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle2").Range("A1") - Range("a1")
Range("a1").ClearContents
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Endlosformeln
24.02.2006 19:36:11
Reinhard
Hallo Micha,
wenn schon ohne Protokollblatt gearbeitet wird, sollte wenigstens die letzte Buchung nachprüfbar und ggfs. änderbar sein, zumindest verstand ich so die Anfrage
Option Explicit
Private Sub CommandButton1_Click()
'Zugang
' in Tabell2 ist A1 der Altbestand vor Buchung, A2 der Neubestand nach Buchung
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle2").Range("A2")
Sheets("Tabelle2").Range("A2") = Sheets("Tabelle2").Range("A2") + Range("a1")
Range("a1").ClearContents
End Sub
Private Sub CommandButton2_Click()
'Abgang
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle2").Range("A2")
Sheets("Tabelle2").Range("A2") = Sheets("Tabelle2").Range("A2") - Range("a1")
Range("a1").ClearContents
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Endlosformeln
24.02.2006 20:57:16
MichaV
Hallo Reinhard,
ich hab nix von Buchungen und Protokollblättern gelesen. Außerdem ist "Anfangsbestand" für mich ein Wert, der am Anfang da war, und sich daher auch nicht ändern wird. Den kann Caro auch mit der Hand eingeben.
Aber ich bin auch kein Buchhalter.
Gruß- Micha

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige