Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufende Nummern über Formeln einfügen?

Forumthread: Laufende Nummern über Formeln einfügen?

Laufende Nummern über Formeln einfügen?
18.02.2003 19:31:13
Nadja
Hallo Leute!
Ich habe in Excel ein Formular zur Erstellung von Rechnungen zusammengebastelt.
Nun bräuchte ich eine Funktion oder ein Makro(?), durch das eine laufende Rechnungsnummer vergeben wird.
Gibt es sowas?
Für Hilfe wäre ich sehr dankbar.
Schönen Abend,
*Nadja*

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:03:38
Ramses

Hallo,

kopiere den Code in "Diese Arbeitsmappe" im VB-Editor.
Passe die Bezüge bitte an.
Bei jedem Ausdruck wird die Rechnungsnummer um 1 erhöht.

Gruss Rainer

Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:03:39
Ramses

Hallo,

kopiere den Code in "Diese Arbeitsmappe" im VB-Editor.
Passe die Bezüge bitte an.
Bei jedem Ausdruck wird die Rechnungsnummer um 1 erhöht.

Gruss Rainer

Anzeige
Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:06:06
steffen

sicher geht das. wenn ich dich richtig verstanden habe, dann musst du nur in einer zelle eine zahl schreiben, und diese bei einer rechnung auslesen, um eins erhöhen, die neue zahl wieder in die selbe zelle schreiben und den um eins erhöhten wert in deiner rechnung verwenden. hilft dir das weiter?

steffen

Anzeige
Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:24:12
Uwe

Hallo Nadja,
ein solches Problem hatte ich mit Auftragsnummern.
Natürlich mußt du irgendwo eine Tabelle haben, in der alle schon vorhandenen Nummern gespeichert sind.
Vielleicht kannst Du mit diesem Code etwas anfangen...evtl. als Funktion umschreiben.
Gruß Uwe

Sub Auftragsnummer()
Dim n As Integer
Application.ScreenUpdating = False

' Bereich, wo vorhandene Auftragsnummern stehen können, kopieren
Worksheets("Dispo").Range("B3:B65536").Copy

' temporär in irgendeine Tabelle einfügen
Worksheets("Blank").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Blank").Select

' sortieren
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'Startzelle
Range("A1").Select

'Schleife beginnen und nächste freie Nummer ermitteln
n = 0
Do While ActiveCell.Offset(n, 0).Value = ActiveCell.Offset(n, 0).Row
n = n + 1
Loop

'Variable AuftragsNr nächste freie Nummer zuweisen
AuftrNr = ActiveCell.Offset(n, 0).Row

'temporäre Kopie aller Nummern wieder löschen
Columns("A:A").ClearContents
Worksheets("Dispo").Select
Application.ScreenUpdating = True
End Sub


Anzeige
Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:26:50
Nadja

Hallo Rainer!
Das klappt ja suuuuper! Vielen Dank.
Hast Du auch für mein nächstes Problem eine Idee?
Es gibt 2 Tabellenblätter für Rechnungen. Eins für Privatkunden und eins für Geschäftskunden. Jetzt muss ja die Rechnungsnummer sowohl in dem einen als auch in dem anderen Tabellenblatt erhöht werden...
Ist für Dich warscheinlich einfach, für mich aber unlösbar...
Viele Grüße,
*Nadja*

Anzeige
Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:32:36
Nadja

Hi Rainer!
Konnte mir selber helfen. Habe die Zeile einfach kopiert und für das zweite Tabellenblatt angepasst. Jetzt funktioniert es.
Nochmals vielen dank und gute Nacht.
*Nadja*

Re: Laufende Nummern über Formeln einfügen?
18.02.2003 20:32:49
Ramses

Hallo,


Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet("Tabellenname Privatkunden") Then
    Worksheets("Privatkunden").Range("Zelle mit Rechnungsnummer") = Worksheets("Privatkunden").Range("Zelle mit Rechnungsnummer") + 1
ElseIf ActiveSheet("Tabellenname Geschäftskunden") Then
    Worksheets("Geschäftskunden").Range("Zelle mit Rechnungsnummer") = Worksheets("Geschäftskunden").Range("Zelle mit Rechnungsnummer") + 1
End If
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16


Da der Ausdruck normalerweise von der gerade aktiven Tabelle gestartet wird, denke ich sollte es funktionieren.

Gruss Rainer



Anzeige
;

Forumthreads zu verwandten Themen

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
Anzeige
Automatische Nummerierung der Tabellenblätter
Rei

Guten Tag!
Leider bring ich es nicht hin, in meiner Excel Tabelle nur die markierten Register mit dem folgendem VBA zu nummerieren.
Option Explicit
Sub t() Dim i As Integer For i = 1 To Worksheets.Count Worksheets(i).Name = "Blatt " & i Next i End Sub
Weiss hier jemand ei...
15.05.2015 12:11:58
Thread-ID: 1426342
3 Beiträge
Bezug auf anderes Tabellenblatt
Henner

Guten Abend zusammen,
mit folgendem Code fülle ich eine ListBox in einer UF mit den Daten aus einer Tabelle. Die letzte Zeile (Me.ListBox1.RowSource) bezieht sich nun leider auf das aktive Tabellenblatt, soll sich aber ebenfalls auf das Blatt "Audit_DB" beziehen.
Private Sub UserForm_I...
07.04.2016 21:09:02
Thread-ID: 1486738
4 Beiträge
Anzeige
fortlaufende Nummerierung in abh von Kürzel
Kürzel

Hallo zusammen,
ich möchte eine Formel erstellen die mir in Abhängigkeit von einem Kürzel in Spalte B ein fortlaufende Nummerierung in Spalte A erstellt. Also nehmen wir mal an in Spalte B stehen einzelne Buchstaben, z.B. X, dann soll in Spalte A stehen X0001, beim nächsten Auftreten von X...
10.03.2017 00:06:55
Thread-ID: 1546498
4 Beiträge
fortlaufende Nummer - Formel ?
Erik

Hallo zusammen,
ich habe noch ein Problem, das ich am besten anhand einer Bespieltabelle erkläre.
https://www.herber.de/bbs/user/112079.xlsx
in den Spalten A-D soll automatisch die Zahl immer weiter fortlaufen,
wenn in den entsprechenden Spalten F-I eine Eingabe erfolgt.
Zu...
10.03.2017 10:55:00
Thread-ID: 1546576
7 Beiträge
Fortlaufende Zeilen-Nummerierung einfügen
Juergen

Hallo zusammen,
ich bräuchte Hilfe oder einen Tipp zu folgenden Umstand:
ich habe ein Tabellenblatt mit unterschiedlichen Inhalten/Werten in der Spalte "C".
Die Einträge werden durch leere "Zellen" unregelmäßig unterbrochen.
Jetzt benötige ich einen fortlaufende Nummerierung in...
03.05.2017 11:35:49
Thread-ID: 1555996
5 Beiträge
Fortlaufende Nummer vergeben
Ralf

Hallo,weil es gestern so toll mit euch hier geklappt hat versuch ich es noch einmal. Ich habe folgendes Problem: ich möchte mittels VBA in einer Tabelle einen Datensatz reinschreiben, was auch schon gut klappt, nun möchte ich dass jedem Satz beim eintragen in Spalte A eine fortlaufende Nummer z...
12.05.2003 12:33:29
Thread-ID: 255043
5 Beiträge
Anzeige
Fortlaufende automatische Nummerierung einer Zelle
Norbert
Hallo,
liebe Excelfreunde!
Ich habe folgendes Problem:
Ich möchte erreichen,daß Excel in einer Zelle eines Arbeitsblattes jeweils nach dem ÜBERSPEICHERN dieses Arbeitsblattes eine fortlaufende Nummerierung
einfügt.
Wer kann mir hierzu einen Tip geben?
Bei einem anderen Beitra...
09.11.2003 19:02:23
Thread-ID: 335480
9 Beiträge
Fortlaufende-Nummer vergeben
Lunatic82

Hallo zusammen,
hab mal wieder ein problem, brauch für die iso-zertifizierung für die aufbewahrung von garantieteilen ein formular, dass automatisch eine fotlaufende nummer generiert.
und aus diesem formular soll dann wenn möglich ein klebeetikett erstellt werden (nur die fortlaufende n...
21.01.2008 14:31:00
Thread-ID: 943800
4 Beiträge
Formel für fortlaufende Nummerierung
Tommi

Liebe Excel-Gemeinde,
ich habe eine Tabelle, in der neben einer Spalte mit fortlaufender Nummerierung weitere Spalten mit Daten und Formeln enthalten sind. Um die Dateneingabe zu vereinfachen, benute ich einen Code zum Einfügen einer neuen Zeile, wobei auch gleich die Formeln übernommen wer...
16.06.2008 11:29:00
Thread-ID: 986117
3 Beiträge
Excel Formel fortlaufende Nummerierung
Christian

Hallo,
ich habe folgende Werte:
A1: 100
A2: 80
A3: 60
A4: 40
Ich möchte nun eine Nummerierung in Spalte B haben:
B1: 1
B2: 2
B3: 3
B4: 4
Es kann nun sein das sich diese Werte ändern:
A1: 80
A2: 40
A3: 100
A4: 60
Demnach müsste sich...
15.10.2019 10:53:14
Thread-ID: 1717652
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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