VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Home Zurück Vor
Download der Beispiel-Arbeitsmappe

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open

Msg mit 2 Ereignissen +Cancel
Workbooks open
Ereignisprozedur
Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname
Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office
UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?
GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen
Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden
Ereignis Arbeitsblatt sperren abfangen
Workbook open
Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis
xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook
Change-Ereignis in Combobox unterdrücken
Combobox Ereignis
MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul
Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis
Workbook Open
Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen
change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern
change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl
Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm
Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden
Workbook_open
change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change
workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat
Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open