Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei jedem Öffnen der Arbeitsmappe Wert um 1 erhöhen

Gruppe

Open

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