Office: (Office 2016) VBA - Daten unter Datum schreiben

Hallo zusammen,

ich habe zum ersten Mal mit VBA und ActiveX-Elementen in Excel gearbeitet und mir dazu alles ergoogelt. Nun stoße ich jedoch an meine Grenzen.

Ich habe eine Registrierkasse in Excel erstellt. Drückt man auf die entsprechenden Felder, wird die Summe der Produkte angezeigt. Gleichzeitig wird gezählt welche Waren insgesamt verkauft wurden und wie hoch die Einnahmen sind. Soweit hat alles geklappt.

Nun möchte eine Taste fürs abschöpfen haben, um den Kassenstand wieder auf 0 zu setzen und gleichzeitig soll auf dem nächsten Blatt die Menge aller Verkäufe unter dem Datum eingetragen werden. So sollte man jeden Tag sehen können, was und wieviel verkauft wurde, um den Bestand kontrollieren zu können.

Wie kann per VBA sagen: " Bei Klick trage die Werde von A1 - A10 auf dem nächsten Blatt in A1 - A10... am nächsten Tag dann aber in B1 - B10 und so weiter...

Hoffe ich habe mich verständlich ausgedrückt.

Vielen Dank schonmal für eure Hilfe,
foxsoft

 

Hallo

meinst du so?
den Blattnamen natürlich anpassen

Code:

Sub beiKlick()
    Dim lngZiel As Long
    With Sheets("nächstesBlatt")
        If IsEmpty(.Range("A1")) Then
            lngZiel = 1
        Else
            lngZiel = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
        End If
        Range("A1:A10").Copy .Cells(1, lngZiel)
    End With
End Sub

MfG Tom

 

Nein, so geht es leider nicht. Trotzdem danke!

Ich habe die Zellwerte angepasst, aber leider passiert nichts.

Hier (https://www.dropbox.com/s/kgoov4igtrwpire/kasse_neu3.xlsm?dl=0) kann man sich die Datei mal anschauen...
Ich weiß, dass noch etliche Fehler drin sind...das liegt vor allem, am umschreiben, dass ich die ganze Zeit tu.

Im Prinzip soll nur auf dem Blatt "Kasse" der Betrag angezeigt werden und die gewählten Produkte und auf einem anderem sollen alle Verkäufe gezählt werden.

Vielleicht noch jemand Ideen?
Danke,
foxsoft