0160-93 82 19 37 | Nehmen Sie 
Zähler beim Start einer Arbeitsmappe um den Wert 1 erhöhen
104019
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.
Private Sub Workbook_Open()
Sheets(1).Range("B2").Value = Sheets(1).Range("B2").Value + 1
End Sub
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 |
|
|
