Zelle nach Makroausführung , wert + 1
21.03.2005 10:07:29
Alex
habe folgenden Makro zum Beenden meiner Arbeitsmappe
Sub Beenden()
ActiveSheet.Unprotect
Sheets("Deckblatt").Select
[A1] = ""
Range("P2,E9:AC10,AI10:AI15,AI18:AI24").ClearContents
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayFullScreen = False
ThisWorkbook.Close
Application.DisplayAlerts = True
ActiveSheet.Protect
End Sub
Jetzt hätte ich gerne wenn er mir die arbeitsmappe Beendet und Speichert, das der Wert auf dem "Blatt1" in Zelle "Y9" immer + 1 aufrechnet.
Das heisst wenn vorher 10000 in der Zelle steht soll nach dem makro 10001 stehen beim nächsten öffnen meiner Arbeitsmappe. Wie eine Laufende Nummer soll er es vergeben.
Hoffe jemand hat eine Idee wie man es umsetzen kann.
Gruß Alex
Anzeige