Zähler beim Start einer Arbeitsmappe um den Wert 1 erhöhen

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