Gruppe
Ereignis
Bereich
Open
Thema
Bei jedem Öffnen der Arbeitsmappe Wert um 1 erhöhen
Problem
Bei jedem Öffnen der Arbeitsmappe soll die Rechnungsnummer um 1 erhöht werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
With Range("RechnNr")
.Value = .Value + 1
End With
End Sub