lfd Nr. nach schließen fortsetzen

[Basti5]

Guten Morgen Zusammen,
 
folgende Problemstellung:
In Excel soll eine laufende Nummer generiert werden, dies sich mit einem Klick auf einem Button jeweils erhöhen soll.
 
Dies ist jetzt nicht unbedingt problematisch, habe dazu folgenden Code:
 Private Sub CommandButton1_Click()
Cells(1, 1) = Cells(1, 1) + 1
End Sub
 
Jetzt wird es kompliziert- angenommen in Zelle A1 steht der Wert 70 drin, ich klicke dreimal auf den Button und habe den Wert 73. Dieser Werte sollte jetzt automatisch übernommen werden und beim nächsten öffnen von Excel, wieder drinstehen um sich dann mit einem neuen Klick weiter zu erhöhen (diese Sicherung ist sehr wichtig für den Fall, dass man beim schließen ausversehen auf „Nicht Speichern“ drückt).
 
Weiß zufällig jemand wie dies Funktionieren könnte?
 
Viele Grüße
 
Basti

[chris-ka]

Hi

Code:

Private Sub CommandButton1_Click()
Cells(1, 1) = Cells(1, 1) + 1
thisworkbook.save
End Sub

[Basti5]

Cool- Funktioniert- Vielen Dank!!!  :17: