Nutzen Sie unser 
Solle bei jedem Start einer Arbeitsmappe ein Zähler, beispielsweise eine Rechnungsnummer in Zelle B2, um den Wert 1 erhöht werden, dann sehen Sie sich den folgenden Code näher an.
{codecitation}
Private Sub Workbook_Open()
Sheets(1).Range("B2").Value = Sheets(1).Range("B2").Value + 1
End Sub
{/codecitation}
Da es sich um ein Ereignis für die Arbeitsmappe handelt, müssen Sie den Code im Modul "DieseArbeitsmappe" hinterlegen, damit er bei jedem Start der entsprechenden Arbeitsmappe ausgeführt wird.
|
|
A |
B |
|
1 |
|
|
|
2 |
Rechnungs-Nr. |
6 |
|
3 |
|
|
|
4 |
|
|
|
5 |
Bei jedem Start der Arbeitsmappe wird der Wert um den Zähler 1 erhöht. |
|
|
6 |
|
|
|
7 |
|
|
