Supportnet / Forum / Tabellenkalkulation

Ein freundliches Hallo, vielliecht kann mir jemand bei folgendem Problem helfen. Ich sitzte über eine Inventurtabelle und habe folgende Schwierigkeit: Zelle A1 ist die gezählte Inventur Zelle B1 die Ausgabe Zelle C1 die Einnahme und Zelle D1 das totale am Tagesende. Ich möchte immer nur bei Eingang und Ausgang die Werte über den Tag eigeben und am Endo soll das Totale stimmen. Also mit jeder neuen Eingabe eines Wertes soll das Totale unabhängig von der Inventurzahl sein. Bsp. (10 Uhr 10x raus, 11Uhr 3 rein und !3 Uhr wieder 5 raus) ich möchte aber nicht unnötig viele Zellen zum Berechnen sondern nur diese 4 Im Dank voraus und freundliche Grüße Chris

hallo,

wenn ich es richtig verstehe, möchtest du immer nur den aktuellen Bestand in D1 haben.

Dies ist nur über ein Makro zu lösen.

Gruß

Helmut

Ja genau, ich hab so was schon mal gemacht nur leider vergessen wie es geht. Wenn du mir helfen könntest wäre es nicht schlecht, da ich es doch etwas dringender bräuchte

Danke Chris

Hallo,

ich bin nicht so ganz fit in "Inventur"...

... hast Du nur einen Artikel? Oder mehrere?

Ist jede Zeile immer vollständig ausgefüllt (alle Zellen) oder wie sieht das aus?

D1 gibst Du nicht ein, sondern das soll errechnet werden?

Hallo Inventur ist nur der Nahme.

Also ich habe einen Istbestand A1 zb: 100
und zum Start D1 Total 100

heute gehen raus 20Stk. B1
dann kommen rein 10Stk. C1
dann kommen wieder 5 rein B1

ich möchte nur in die Zellen B1 (Ausgang)
und C1 ( Eingang) die Mengen eingeben und im Hintergrund soll automatisch der Totale Ist Bestand in D1 berechnet werden.

Zelle A1 und D1 sind geschützt

Danke Chris

Okay, also Du überschreibst den Wert "20" in B1, wenn weitere 5 reinkommen, mit "5"?

???

Kleiner Fehler von mir,

B1 immer der Ausgang
C1 immer der Eingang,

ja ich möcht die Zahl immer überschreiben und im Hintergrund soll die Berechnung für D1 laufen

Ups, da habe ich ja selber nicht aufgepasst...

... ja, das schreit nach Makro.
Das Makro muss beobachten, ob in der Zelle ein Wert eingeben wird und wenn ja, addieren bzw. subtrahieren.

Mir fällt "Change event" ein.

Leider kann ich jetzt nicht das passende Makro konstruieren...

:-(

Hallo,

mit einem Mitarbeiter habe ich folgende Lösung gefunden (quick and dirty, aber noch nicht genau das, was Du suchst):

Makro-Code für einen Commanbutton "Löschen"



Private Sub TextBox1_lostfocus()
On Error Resume Next
Dim y, x As Long, z As String

x = CLng(TextBox3.Value)
y = CLng(TextBox1.Value)
z = CStr(x + y)
TextBox3.Value = z

End Sub

Private Sub TextBox2_lostfocus()
On Error Resume Next
Dim y, x As Long, z As String

x = CLng(TextBox3.Value)
y = CLng(TextBox2.Value)
z = CStr(x - y)
TextBox3.Value = z
End Sub

Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub


Dazu gehört dann ein Excel-Sheet wie folgt:

A1: Text "hinzu"
B1: Text "weg"
C1: Text "summe"
A2A3: die "TextBox1"
B2B3: die "TextBox2"
C2C3: die "TextBox3"
D1D3: der "CommandButton1"


Zur Berechnung Wert eintragen und dann außerhalb der Eingabefelder klicken.

Wird in eines oder og. Felder "hinzu" o. "weg" geklickt
und danach wieder außerhalb der Eingabefelder, so
wird der im Feld bestehende Wert erneut verrechnet.

Hoffe, es ist halbwegs verständlich.

Gruß und viel Erfolg,

Volker

Danke für die Nachricht,

da ich nicht der beste im Excel bin, werd ich wohl mit deiner Lösung Probleme bekommen. Ich dachte eher an Visuel Basic, dass du mir eine Formel schicktst und ich sie dann kopieren kann.

Naja nochmals danke

versuchs mal so:

sub rechnen()
if [b1] <> "" then
[d1] = [d1] - [b1]
Range("b1").Clear
end if
if [c1] <> "" then
[d1] = [d1] + [c1]
Range("c1").Clear
end if
end sub

dann musst du noch einen button erstellen der rechnen ausführt

Hallo und Danke,

habe es versucht und klappt leider nicht. Kann ich dir mal die Excelliste zuschicken?

Danke Chris

• excel wenn bezug auf 2 zellen
• Helligkeit zweier Bilder untereinander angleichen
• Zellen mit textinhalt zusammenfassen???
• Zellen nach gleichem Text überprüfen