Counter für Kaffeeliste

[Benes]

Hallo,

wir haben in der Arbeit einen Vollautomat mit Kaffee Bezug Counter. Dieser zeigt an wie viel Kaffee bezogen worden ist und Milchgetränke.
ich habe eine Kaffee Liste gemacht wo die Leute mit einem Formularsteuerlement (Drehfeld) mit den Pfeiltasten den Kaffee eintragen können aber auch manuell reinschreiben können wie viel und was sie getrunken haben .
Dabei haben sie die Wahl zwischen Kaffee oder einem Milchgetränk.
In einer anderen Zelle werden die Gesamt Tassen für die beiden zusammengezählt.

Wenn dann neuer Kaffee gekauft wird, wird alles auf 0 gesetzt. 

Würde jetzt gerne überprüfen ob die Leute auch alles in die Liste eintragen oder ob es "Schwarztrinker" gibt
Wenn der Counter im Vollautomat auf 1000 Kaffee steht und ich trinke 3 Kaffee registriert der Vollautomat 1003 Kaffee, diesen Wert sollte auch die Liste (eine Zelle) dann übernehmen.

Ich bräuchte also die Möglichkeit den tatsächlichen Wert des Vollautomat einzutragen und die Liste mit dem Vollautomat zu synchronisieren.
Der Zähler sollte dann auch weiterzählen wenn die Liste wieder auf 0 gesetzt wird.

Gibt es eine Möglichkeit das zu realisieren?

Danke

[CHASiN1994]

Moin,

du willst mir nicht erzählen, dass der Kaffeeautomat mit der Excel- Datei verbunden ist oder ?:D

mach doch einfach eine Zelle, in der du jeden morgen oder Abend den Zählerstand des Vollautomaten einträgst. Die Differenz zwischen eingetragenen "Getränken" und Zählerstand am Automaten sind "Schwarzgetränke"

btw: wie sieht die Excel überhaupt aus?

[Benes]

Moin,

du willst mir nicht erzählen, dass der Kaffeeautomat mit der Excel- Datei verbunden ist oder ?:D

Servus

Das wäre mal Super aber leider Nein. Obwohl mit den vernetzten Maschinen wäre das ein gute Idee

War ein Wunsch meiner Kollegen die das automatisiert haben wollten. 
Wenn die Zelle das automatisch mitzählt und einer kauft Kaffee und setzt den Zählerstand auf 0 in der Liste sind die getrunkenen Tassen alle weg.
An dem Tag bevor er alles nullt kann er umsonst trinken.

Gruß Benes

[CHASiN1994]

Moin,

also ganz ehrlich. das hat glaube ich mit Excel und dessen Funktionen wenig zu tun. 

Ich muss dir ebenso sagen, dass ich ein fan von Standardisierung und Regelprozessen bin.

Frage: Wie funktioniert das null setzen?: drückt jemand bei der Excel- Datei auf eine Schaltfläche "kaufen" und dann setzt sich der Zählerstand auf Null?

=Wenn("JA";Code so umprogrammieren, dass der Zählerstand in ein anderes Tabellenblatt eingefügt wird, sodass zwar in dem Haupttabellenblatt genullt wird, aber auf dem anderen Tabellenblatt alle Zählerstände vor dem Nullsetzen gespeichert sind;wie funktioniert es?)

[Benes]

Servus,

ich habe ein Button gemacht mit einem Makro, drückt man dann auf diesen werden alle Stände auf Null gesetzt.
Das wäre schon hilfreich wenn jemand das Makro ausführt und der alte Zählerstand würde gespeichert werden.

Im Prinzip ist es so einer kauft Kaffee, und druckt dann die Rechnung für die Leute aus. Und dann werden die Werte zurückgesetzt bis zum nächsten Kaffeekauf.

[CHASiN1994]

Dann wissen wir ja endlich was du für ein Problem hast.

Wenn du jetzt noch die Liste zusenden würdest, dann kann der Code auch geändert werden!

[Benes]

So Bitteschön

[Rabe]

Hi,

ich würde Dein Makro folgendermaßen ergänzen und verkürzen:

Option Explicit

Sub LoescheZeilen()
    If MsgBox("Wirklich auf Null setzen?", vbYesNo + vbQuestion, "Werte zurücksetzen") = vbYes Then
        Worksheets("Counter").Range("A3") = Worksheets("Counter").Range("A3") + Worksheets("Kaffee Bezug").Range("G3")
        Worksheets("Counter").Range("B3") = Worksheets("Counter").Range("B3") + Worksheets("Kaffee Bezug").Range("G4")
        
        Range("A3:D3") = 0
        Range("A5:D5") = 0
        Range("A6").Select
    End If
End Sub

oder noch einfacher:

Option Explicit

Sub LoescheZeilen()
    If MsgBox("Wirklich auf Null setzen?", vbYesNo + vbQuestion, "Werte zurücksetzen") = vbYes Then
        Worksheets("Counter").Range("A3") = Worksheets("Kaffee Bezug").Range("B17")
        Worksheets("Counter").Range("B3") = Worksheets("Kaffee Bezug").Range("D17")
        
        Range("A3:D3") = 0
        Range("A5:D5") = 0
        Range("A6").Select
    End If
End Sub

In Deiner Formel für A16 ist noch ein Fehler!

[Benes]

Hi,

ich würde Dein Makro folgendermaßen ergänzen und verkürzen:

Option Explicit

Sub LoescheZeilen()
    If MsgBox("Wirklich auf Null setzen?", vbYesNo + vbQuestion, "Werte zurücksetzen") = vbYes Then
        Worksheets("Counter").Range("A3") = Worksheets("Counter").Range("A3") + Worksheets("Kaffee Bezug").Range("G3")
        Worksheets("Counter").Range("B3") = Worksheets("Counter").Range("B3") + Worksheets("Kaffee Bezug").Range("G4")
        
        Range("A3:D3") = 0
        Range("A5:D5") = 0
        Range("A6").Select
    End If
End Sub

oder noch einfacher:

Option Explicit

Sub LoescheZeilen()
    If MsgBox("Wirklich auf Null setzen?", vbYesNo + vbQuestion, "Werte zurücksetzen") = vbYes Then
        Worksheets("Counter").Range("A3") = Worksheets("Kaffee Bezug").Range("B17")
        Worksheets("Counter").Range("B3") = Worksheets("Kaffee Bezug").Range("D17")
        
        Range("A3:D3") = 0
        Range("A5:D5") = 0
        Range("A6").Select
    End If
End Sub

Danke dafür, habe ihn ersetzt

[Benes]

Hallo nochmal,

irgendwie habe ich es selber hinbekommen, vermutlich nicht die beste Lösung aber es funktioniert.

Code:

=WENN('Kaffee Bezug'!G5=0;A3='Kaffee Bezug'!B17;"")

Danke für die Hilfe