Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fortlaufende Nummern vergeben

Forumthread: Fortlaufende Nummern vergeben

Fortlaufende Nummern vergeben
26.03.2006 19:12:33
Andreas
Hallo Forum,
Ich möchte beim Öffnen einer Rechnungsvorlage Automatisch immer die nächste Rechnungsnummer angegeben haben. Es wird aber nicht die Vorlage gespeichert sondern das ausgefüllte rechnungsformular. Wie kann ich es daher anstellen, das ich beim öffnen der Vorlage immer die nächste Rechnungsnummer angezeigt bekomme. Wie gesagt, die vorlage bleibt immer gleich, gespeichert wird nur das ausgefüllte Formular, bei diesem sollte sich die rechnungsnummer beim neuerlichen öffnen nicht mehr ändern.
ich danke für euere hilfe
gruß
andreas
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 19:34:21
Uwe
Hi Andreas,
prinzipiell geht das mit diesem Code im Modul der Arbeitsmappe:


Private Sub Workbook_Open()
Sheets("Tabelle1").Range("A1").Value = Range("A1").Value + 1
ActiveWorkbook.Save
End Sub


Ist das das was Du suchst?
Gruß
Uwe
(:o)
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 20:01:15
Andreas
hallo Uwe,
Ja Danke, es funktioniert. jedoch wenn ich die rechnung unter namen abspeichere, und wieder öffne, dann ändert sich wieder die rechnungsnummer, das sollte nicht sein. vielleicht kannst mir da auch noch helfen.
in der vorlage funkt es so wie ich es haben wollte danke.
wenn jetzt nach dem abspeichern unter dem namen die rechnungsnummer bei neuerlichen öffen bleibt, ist alles wunderbar.
gruß
andreas
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 20:45:15
Uwe
Hi Andreas,
daran hatt ich nicht gedacht.
So sollte es besser klappen:


Private Sub Workbook_Open()
If Me.Name = "Vorlage.xls" Then
   Sheets("Tabelle1").Range("A1").Value = Range("A1").Value + 1
   ActiveWorkbook.Save
End If
End Sub


Du musst nur das "Vorlage.xls" durch den richtigen Namen Deiner Vorlage ersetzen.
OK so?
Gruß
Uwe
(:o)
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 21:05:45
Andreas
Hallo Uwe
Recht herzlichen Dank. funktioniert einwandfrei. so wie es soll.
Danke nochmals.
Würde das in einer Arbeitsmappe wo mehrere Tabellen sind auch funktionieren?
wenn man bei der offenen Arbeitsmappe die Tabelle öffnet nur dann in der tabelle die nummer erhöht wird?
leider kenn ich mich mit VBA nicht so gut aus wie du.
gruß
andreas
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 21:56:18
Uwe
Hi Andreas,
jetzt wird's etwas komplizierter. Ich schick mal meine Testdatei mit:
https://www.herber.de/bbs/user/32285.xls
(habe gerade erschreckt festgestellt das das so nicht läuft. Du musst die Datei entweder als Vorlage.xls abspeichern oder im Tabellenblattmodul das Vorlage.xls durch 32285.xls ersetzen. Kann ich leider nicht, weil ich nicht weiß welche Nummer das Forum vergeben wird)
Du müsstest den alten code im Modul DieseArbeitsmappe löschen und ersetzen durch:


Private Sub Workbook_Open()
Sheets("Tabelle1").Activate
End Sub


Dann fügst Du im Modul von z.B. Tabelle2 ein:


Private Sub Worksheet_Activate()
If ActiveWorkbook.Name = "Vorlage.xls" Then
   Sheets("Tabelle2").Range("A1").Value = Range("A1").Value + 1
   ActiveWorkbook.Save
End If
End Sub


Das hat jetzt den Effekt, dass die Datei beim Öffnen immer die Tabelle1 zeigt. Das wäre für mich so eine Art Startblatt, auf dem noch keine Rechnungsnummer erscheint. Wenn man dann Tabelle2 auswählt, wird automatisch die Nummer in A1 hochgezählt. Du kannst diesen Code auch in weitere Blätter Kopieren, dann nur Tabelle2 durch den richtigen Blattnamen ersetzen. Oder ersetz Sheets("Tabelle2").Range.... durch ActiveSheet.Range....
Das passt dann zu jedem Blatt.
Bringt Dich das weiter?
Gruß
Uwe
(:o)
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 22:03:41
Ramses
Hallo
Dann musst du aber sicherstellen, dass beim ersten öffnen die Vorlage gleich wieder gelöscht wird :-)
Ein wiederholtes öffnen der Vorlage führt dann zwangsläufig zu falschen Nummern.
Ein Speichern der Datei unter einem andern Namen muss ebenfalls verhindert werden.
Rechnungsnummern haben den unangenehmen Nebeneffekt, dass sie nur EINMALIG sein dürfen.
Ohne extern gelagerte INI-Datei kriegst du das Problem NIE in den Griff.
Vor allem wenn die Datei auch noch als Vorlage für mehrere Personen benutzt wird.
Gruss Rainer
Anzeige
AW: Fortlaufende Nummern vergeben
27.03.2006 08:12:31
Andreas
hallo uwe,
vielen dank das bringt mich sehr weiter,
funktioniert einwandfrei.
einmal muß ich dich aber noch um hilfe bitten.
habe das selbe prob. mit dem datum.
habe einen vba code, welcher mir das datum einfügt,und auch nach dem speichern nicht mehr ändert, so wie ich es will, jedoch muß da immer die datumszeile in der vorlage leer sein. vielleicht hast du eine idee wie man das bewerkstelligen kann, das die zeile nicht leer sein muß, das datüm beim öffen eingefügt wird, und nach dem speichern der rechnung nicht aktualisiert wird, so wie die rechnungsnummer.
hier der code den ich habe:

Private Sub Workbook_Open()
'Hinweis: In der Mustervorlage muss die Datumszelle leer sein!!
Dim datumszelle As Range
Set datumszelle = ThisWorkbook.Sheets("Reparaturauftrag").Range("E11")
If IsEmpty(datumszelle) Then
datumszelle.Value = Date
End If
End Sub

vielen dank
gruß
andreas
Anzeige
AW: Fortlaufende Nummern vergeben
28.03.2006 00:46:46
Uwe
Hi Andreas,
ich glaube da können wir "Ihn" genauso austricksen wie vorher:


Private Sub Workbook_Open()
'Falls der Name "Vorlage.xls" ist wird der Inhalt Zelle E11 zuerst gelöscht:
If ActiveWorkbook.Name = "Vorlage.xls" Then _
ThisWorkbook.Sheets("Reparaturauftrag").Range("E11").Clear
'--------------------------------------------------------------------------------
  'Hinweis: In der Mustervorlage muss die Datumszelle leer sein!!
  Dim datumszelle As Range
  Set datumszelle = ThisWorkbook.Sheets("Reparaturauftrag").Range("E11")
  If IsEmpty(datumszelle) Then
    datumszelle.Value = Date
  End If
  End Sub


Natürlich wieder "Vorlage.xls" durch den richtigen Dateinamen ersetzen.
Probier das aber auf jedenfall genau aus, das kannst Du besser als ich.
Du solltes Dir aber auch auf jedenfall die Mails von Ramses genau durchlesen.
Ich weiß dass er in VBA um Längen besser ist als ich. Meine Lösungen sind ja auch eigentlich ziemlich primitiv. Aber wenn's klappt.....
Gruß
Uwe
(:o)
Anzeige
AW: Fortlaufende Nummern vergeben
26.03.2006 21:06:43
Daniel
hallo
ergänze einfach den Code von Uwe so:

Private Sub Workbook_Open()
Sheets("Tabelle1").Range("A1").Value = Range("A1").Value + 1
Thisworkbook.Save
Sheets("Tabelle1").Copy
End Sub

Damit kopierst du die die Rechnungsvorlage in eine neue Datei.
Die Makros werden nur mitkopiert, wenn sie im Klassenmodul vom kopierten Sheet stehen, dh. das Makro zum erhöhen der Rechnungsnummer bleibt in der Vorlage und wird NICHT in die Rechnung übernommen.
Außderdem verhinderst du damit, daß die Vorlage aus versehen überschrieben wird, da bei einer neuen Datei immer nach dem gewünschten Spreicherort gefragt wird.
(wenn du das wasserdicht haben willst, kannst du am Ende noch ein THISWORKBOOK.CLOSE einfügen, dann wird die Vorlage sofort wieder geschlossen, und kann nur geändert werden, wenn du die Makros beim Öffnen deaktivierst, hierfür muß allerdings die Makrosicherheit unter Extras-Optionen-Sicherheit-Makrosicherheit mindestens auf MITTEL gesetzt werden.)
Gruß, Daniel Eisert
Anzeige
;

Forumthreads zu verwandten Themen

Rechnung mit Rechnungsnummer
Sammy

Hallo Forum
Ich habe das Archiv bereits nach Beiträgen durchforstet und bin hier im Forum, ich sag mal missverstanden worden. Habe meine Rechnung erstellt und bin an folgenden Aufgaben gescheidert.
Es soll selbstständig eine Rechnungsnummer erstellt und in eine bestimmte Zelle eingetrag...
20.01.2009 22:50:00
Thread-ID: 1042010
7 Beiträge
laufende Nummer vergeben
Frank

Hallo Leute,
da mir bisher immer super geholfen wurde wende ich mich mal wieder an Euch mit einem für mich nicht lösbaren Problem. Habe im Archiv schon rund 2 Stunden zugebracht da es schon viele Beiträge zum Thema gibt, bin aber leider nicht fündig geworden ein paar Ansätze hab ich gefund...
28.01.2009 09:32:00
Thread-ID: 1044460
6 Beiträge
Anzeige
fortlaufende nummern einfügen
ben

hallo leute
ich habe folgendes problem. in einer spalte a stehen wahllos daten und es können leerzeilen vorhanden sein. jetzt will ich bei betätigung eines button immer wenn in einer zelle der spalte a ein wert auftaucht eine fortlaufende nummer zuordnen. leider bekomm ich es nur hin wenn a...
05.05.2009 10:06:00
Thread-ID: 1072981
13 Beiträge
Anzeige
Re: fortlaufende Nummerierung unterbinden
Sandra

Hallo zusammen,
vielleicht hat ja jemand eine Idee, warum dieses Makro bei mir nicht läuft:
Die aller erste Meldung die ich bei Versuch es auszuführen bekomme ist dies hier:

Hier das Makro:
Public Sub PrintSheetsToPDF( _ ByVal SheetsToPrint As Variant, _ ByVal PDFFilePath A...
10.02.2010 16:50:21
Thread-ID: 1137455
25 Beiträge
fortlaufende Nummerierung unterbinden
Sandra

Hallo Leute,
obwohl meine Frage noch imemr offen ist, taucht Sie bei "offene Fragen" nicht mehr auf. Daher jetzt noch einmal ein Thread mit dem Link zu meinem Problem.
https://www.herber.de/cgi-bin/forum/call_forum.pl
Gruß
Sandra
17.02.2010 10:39:55
Thread-ID: 1139155
8 Beiträge
laufende nummer nicht automatisch abändern
maschmi

Hallo zusammen,
ich hoffe mir kann jemand helfen.
Ich will in einer Tabelle über die zusammensetzung verschiedener nummern eine laufende nummer für dokumente erzeugen. In Spalte A sind Kundennamen eingetragen. Zu jedem Kundennamen wird in Spalte B automatisch per SVerweis die entspreche...
23.04.2010 13:44:53
Thread-ID: 1153414
3 Beiträge
laufende Nummer vergeben
Lorenz

Hallo Excelianer
Wie kann man in Spalte "A" ab zeile 10 eine laufende Nummer mit eins beginnend vergeben.
Kriterium 1: Liste ist gefiltert (Autofilter)
Kriterium 2: beliebiger Eintrag in Spalte "B" muss vorhanden sein.
Bitte um eine VBA-Lösung.
Danke
Lorenz
05.05.2011 20:04:29
Thread-ID: 1213244
3 Beiträge
Anzeige
lfd. Nummer einfügen
Ilka

Hallo,
kann man der beigefügten Tabelle eine laufende Nummer mit Formel zuweisen, und wenn ja wie?
Immer wenn in Spalte B eine Zahl erscheint, soll eine laufende Nummer in Spalte A eingefügt werden.
Vor dem Wert 77 käme die 1, vor dem Wert 27 entsprechend die 6.
Ein schönes Woch...
19.11.2011 16:25:16
Thread-ID: 1238546
5 Beiträge
Anzeige
Nummerierung mit Bedingung
Manfred

Hallo zusammen,
ich suche eine Formel zum automatischen Nummerieren der Spalte A Z5.
Nummeriert darf nur werden wenn die Schriftfarbe in Spalte B Schwarz ist, ist die Schrift Rot oder auch wenn nichts drin steht darf nicht nummeriert werden.
Ein Makro
Mit freundlichen Grüßen
10.04.2013 16:35:03
Thread-ID: 1308200
8 Beiträge
fortlaufende nummer generieren
Bernd

Hallo Excel-VBA Gemeinde ,
ich komme hier mal wieder nicht weiter . Ich habe eine Userform mit mehreren TextBoxen die mir in einem Tabellenblatt etwas Eintragen . Dieses Blatt möchte ich nun z.B. Vier mal Ausdrucken und dabei soll in der Zelle D19 eine Fortlaufende Nummer Generiert werden ,...
12.04.2013 10:20:32
Thread-ID: 1308502
6 Beiträge
Laufende Nummer vergeben
Michael

Ich will in einer Zelle eine Nummer vergeben, die aus einer auf einem Netzwerk-Pfad liegenden Excel- oder Textdatei eingelesen werden soll und sich immer um 1 erhöht. Der neue Wert soll wieder in die "Zähler"-Datei geschrieben werden. Gut wäre es auch, wenn die Nummer nicht wieder vergeben werd...
09.07.2002 13:09:30
Thread-ID: 135047
7 Beiträge
Neue laufende Nummer ermitteln
reinhardt

Guten Morgen,
ich habe eine Tabelle mit folgendem Aufbau: z.B.
001_BU14_11 oder 005_BU14_16 oder 131_BU14_358.
Ich suche eine eine einfachere Möglichkeit,die Spalte H abzufragen, welches die nächste fortlaufende Nummer ist. Hierbei zählen jedoch nur die max. letzten 3 Ziffern.
...
04.04.2014 07:56:38
Thread-ID: 1356075
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Fortlaufende Nummern in Excel vergeben

Schritt-für-Schritt-Anleitung

Um eine fortlaufende Nummer in Excel automatisch zu vergeben, kannst du VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei, in der du die fortlaufende Nummer einfügen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke im Projekt-Explorer auf DieseArbeitsmappe.

  4. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
   If Me.Name = "Vorlage.xls" Then
       Sheets("Tabelle1").Range("A1").Value = Sheets("Tabelle1").Range("A1").Value + 1
       ActiveWorkbook.Save
   End If
End Sub

  5. Ersetze "Vorlage.xls" mit dem Namen deiner Vorlage.

  6. Speichere die Datei als Excel-Arbeitsmappe mit Makros (.xlsm).

  7. Schließe und öffne die Datei erneut, um die Funktion zu testen.

Dieser Code sorgt dafür, dass die Rechnungsnummer bei jedem Öffnen der Vorlage automatisch um eins erhöht wird.

Häufige Fehler und Lösungen

  • Fehler: Die Rechnungsnummer ändert sich nach dem Speichern.

    • Lösung: Stelle sicher, dass der Code im Workbook_Open-Ereignis die Bedingung prüft, ob die Datei die Vorlage ist.

  • Fehler: VBA funktioniert nicht.

    • Lösung: Überprüfe die Makrosicherheit in Excel. Stelle sicher, dass die Einstellungen Makros zulassen.

Alternative Methoden

Wenn du keine VBA-Lösungen nutzen möchtest, kannst du auch Excel-Formeln verwenden, um laufende Nummern zu generieren. Hier sind einige Alternativen:

  1. Einfaches Auto-Ausfüllen:

    • Gib in Zelle A1 die Zahl 1 ein und ziehe dann das Ausfüllkästchen nach unten, um fortlaufende Zahlen zu erzeugen.

  2. Formel für fortlaufende Nummerierung:

    • Verwende die Formel =ZEILE(A1) in Zelle A1 und ziehe sie nach unten. Dies generiert fortlaufende Zahlen basierend auf der Zeilennummer.

Praktische Beispiele

  • Beispiel 1: Rechnungsnummer generieren

    • Wenn du eine Rechnungsvorlage hast, kannst du den obigen VBA-Code nutzen, um die fortlaufende Rechnungsnummer automatisch zu erhöhen, wenn die Vorlage geöffnet wird.

  • Beispiel 2: Datum einfügen

    • Um das aktuelle Datum beim Öffnen der Datei einzufügen, kannst du diesen VBA-Code verwenden:
    Private Sub Workbook_Open()
   If IsEmpty(Sheets("Reparaturauftrag").Range("E11")) Then
       Sheets("Reparaturauftrag").Range("E11").Value = Date
   End If
End Sub

Tipps für Profis

  • Überlege, die fortlaufende Nummer in einer separaten Excel-Datei zu speichern, um Konflikte zu vermeiden.
  • Nutze die Worksheet_Activate-Funktion, um die fortlaufende Nummer nur zu erhöhen, wenn du ein bestimmtes Blatt aktivierst.
  • Teste deine Makros gründlich, bevor du sie in produktiven Umgebungen einsetzt.

FAQ: Häufige Fragen

1. Wie kann ich eine fortlaufende Nummer in Excel ohne VBA generieren? Du kannst einfach die Funktion =ZEILE(A1) verwenden und die Zelle nach unten ziehen, um fortlaufende Nummern zu erstellen.

2. Kann ich die Rechnungsnummer automatisch erhöhen und gleichzeitig das Datum einfügen? Ja, du kannst beide Codes kombinieren, um die Rechnungsnummer und das Datum beim Öffnen der Vorlage zu aktualisieren.

3. Was passiert, wenn ich die Vorlage mehrfach öffne? Wenn du den VBA-Code richtig implementierst, sollte die Rechnungsnummer nur erhöht werden, wenn die Vorlage geöffnet wird, nicht bei jeder Speicherung oder Schließung.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige