90. Fortlaufende Nummer erzeugen

Aufgabenstellung:

In dieser Beispieldatei geht es um das Erhöhen einer Zahl wenn die Datei geöffnet wird. Die Zahl im Beispielblatt in Zelle C2 wird bei jedem Öffnen der Datei um den Wert 1 erhöht.

Dieses Beispiel steht auch als Beispieldatei zum Download zur Verfügung.
In der Zipdatei befindet sich eine xls-Datei für Excel 2000 - 2003 und eine xlsm-Datei für Excel 2007.


Realisiert wurde das durch eine VBA-Lösung.

In diesem Beispiel erhöht sich die Zahl in Zelle C2 bei jedem Öffnen der Datei oder auch wenn von einem anderen Blatt wieder zurück auf Blatt "Fortlaufende Nummer" gewechselt wird, um den Wert 1. Man kann dieses z.B. als Rechnungsnummer verwenden

Die Code ist in ein StandardModul einzufügen


Option Explicit


Sub Fortlaufende_Nummer()
'Zahl in Zelle C um die Zahl 1 erhöhen
Sheets("Fortlaufende Nummer").Range("C2").Value = Sheets("Fortlaufende Nummer").Range("C2").Value + 1
End Sub
 

 

Der Code ist in das VBA-Projekt der Tabelle, in dem er wirken soll, einzufügen


Option Explicit


Private Sub Worksheet_Activate()
Fortlaufende_Nummer
End Sub

 


Dieses Beispiel wurde unter den in der Tabelle aufgeführten Versionen getestet.

  A B C D E
1        

2

 

Excel - Version

Getestet

 
3      
4   Excel 2007 12.0 a  
5   Excel 2003 11.0 a  
6   Excel 2002 10.0 a  
7   Excel 2000 9.0 a  
8   Excel 97 8.0    
9          
10   Anzahl der Downloads:

 
11          
12   Dieses Beispiel wurde bereits  x aufgerufen.  
13    
14          

 


> Beispieldatei herunterladen <

  Sollten beim Ausführen der Beispieldatei Fehler auftreten, bitte ich darum, mir eine Mail mit der Fehlerbeschreibung an fehler@excelbeispiele.de zu schicken.
Danke!

 Möchten Sie www.excelbeispiele.de in Ihre Favoriten aufnehmen? Dann Klicken Sie hier.
 

Kontakt:

letzte Aktualisierung am 22.08.2009

© 2004 - Copyright Oliver Scheckelhoff,
All Rights Reserved