Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fortlaufende Nummer mit Archiv

Forumthread: fortlaufende Nummer mit Archiv

fortlaufende Nummer mit Archiv
18.11.2018 19:20:17
Tim
Hallo, ich verzweifle gerade an dem erstellen einer fortlaufenden Nummer, die nach Jahreswechsel in einer neuen Zeile von vorn beginnt.
Ziel soll es sein, über einen Button, in einer Userform eine fortlaufende Nummer im Tabellenblatt "Auftrag" zu generieren, deren Syntax "AU-aktuelles Jahr-fortlaufende Nummer" ist.
Dazu möchte ich gern, dass wenn das Jahr wechselt, dass die vortlaufende Nummer im jeweilig neuen Jahr von vorn begeinnt und das in der nächsten freien Zeile. Hintergrund ist, dass man für das abgelaufene Jahr die Anzahl an aufträgen dokumentiert.
Heißt in Spalte A steht "AU" = Abkürzung für Auftrag. In Spalte B das aktuelle Jahr und in Spalte C die fortlaufende Nummer.
Das einzige was bisher problemlos geht ist die fortlaufende Nummer:
With Worksheets("Auftragsnummer")
.Range("C2") = .Range("C2") + 1
End With
Wer kann mir bei dem Rest weiterhelfen, da ich mit Google noch nicht zum Ergebnis gekommen bin!?
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 19:33:59
onur
Poste mal eine Musterdatei, damit man sehen kann, wo die restlichen Daten (z.B. die aktuelle Auftragsnummer) stehen.
AW: fortlaufende Nummer mit Archiv
18.11.2018 19:43:32
Karl-heinz
Hallo Tim,
nur mal so eine Idee: 
Sub ZaehlHoch()
Dim X As Integer
X = VAl(Right$(Date, 4)) - 2016
With With Worksheets("Auftragsnummer")
.Cells(X, "C").Value = .Cells(X, "C").Value + 1
End With
End Sub
Vorrausetzung: Folgejahre sind erst mal leer. Beispiel beginnt für Ablage in Zeile 2 bei 2018.
viele Grüße
Karl-Heinz
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 20:20:42
Tim
Ihr seit ja schnell, vielen Dank dafür.
https://www.herber.de/bbs/user/125470.xlsm
Ich habe es jetzt mit dem Code von Karl-Heinz probiert, funktioniert aber es entspricht noch nicht ganz meinen Vorstellungen oder ich habe noch einen Klemmer im Kopf.
Ich würde, sobald das Jahr wechselt, die neue Jahreszahl gern als neuen Zeileneintrag zur fortlaufenden Nummer dazu schreiben. Zudem hätte ich gern, dass die komplette Nummer, die generiert wurde in der Textbox auftaucht. Ist das umsetzbar?
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 20:39:01
onur
Die Datei ist murks, ich bat dich um eine Datei, wo auch die aktuelle Auftragsnummer "AU-aktuelles Jahr-fortlaufende Nummer" steht.
AW: fortlaufende Nummer mit Archiv
18.11.2018 20:47:07
Tim
Tut mir leid, die Datei ist als Bsp. gedacht gewesen, da das Original bereits mit Inhalten gefüllt ist. Die von dir genannte Funktion gibt es im Original noch nicht, ich habe versucht mir das mit dem genannten Code zurecht zu basteln, jedoch bin ich nur bis zur Möglichkeit gekommen, die fortlaufende Nummer im Tabellenblatt zu generieren, jedoch ohne Jahr und ohne Archivfunktion.
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 21:41:28
onur
Du kannst bei öffnen der Datei überprüfen lassen, ob sich das akt. Jahr geändert hat.
Wenn ja, wird die Nummer zurückgesetzt.
Siehe hier:
https://www.herber.de/bbs/user/125472.xlsm
AW: fortlaufende Nummer mit Archiv
19.11.2018 08:15:02
Tim
Guten Morgen onur,
vielen Dank das sieht gut aus. Den Zähler für die Auftragsnummer müsste man damit manuell am 31.12. archivieren!?
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 22:10:20
Oisse
Hallo Tim,
versuch das mal. Ich hoffe, ich habe keinen logischen Fehler drin. 
Sub Fortl_Nummer()
Dim wkb As Workbook
Dim ws As Worksheet
Dim lz As Long
Dim Jahr As String
Dim Tag As String
Set wkb = ThisWorkbook
Set ws = wkb.Worksheets("Auftrag")
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
Jahr = Year(Date)
Tag = Format(Date, "dd.mm")
With ws
If Format(Date, "dd,mm") >= "17.11" Then
If .Range("B" & lz)  Jahr Then
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = 1
Else
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = .Range("C" & lz) + 1
End If
End If
End With
End Sub

Gruß Oisse
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 22:11:10
Oisse
Hallo Tim,
versuch das mal. Ich hoffe, ich habe keinen logischen Fehler drin. 
Sub Fortl_Nummer()
Dim wkb As Workbook
Dim ws As Worksheet
Dim lz As Long
Dim Jahr As String
Dim Tag As String
Set wkb = ThisWorkbook
Set ws = wkb.Worksheets("Auftrag")
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
Jahr = Year(Date)
Tag = Format(Date, "dd.mm")
With ws
If Format(Date, "dd,mm") >= "17.11" Then
If .Range("B" & lz)  Jahr Then
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = 1
Else
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = .Range("C" & lz) + 1
End If
End If
End With
End Sub

Gruß Oisse
Anzeige
AW: fortlaufende Nummer mit Archiv
18.11.2018 22:14:03
Oisse
Hallo Tim,
versuch das mal. Ich hoffe, ich habe keinen logischen Fehler drin. 
Sub Fortl_Nummer()
Dim wkb As Workbook
Dim ws As Worksheet
Dim lz As Long
Dim Jahr As String
Dim Tag As String
Set wkb = ThisWorkbook
Set ws = wkb.Worksheets("Auftrag")
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
Jahr = Year(Date)
Tag = Format(Date, "dd.mm")
With ws
If Format(Date, "dd,mm") >= "17.11" Then
If .Range("B" & lz)  Jahr Then
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = 1
Else
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = .Range("C" & lz) + 1
End If
End If
End With
End Sub

Gruß Oisse
Anzeige
AW: fortlaufende Nummer mit Archiv
19.11.2018 08:18:39
Tim
Guten Morgen Oisse,
dein Code gefällt mir sehr gut, jedoch schreibt er die fortlaufende Nummer jeweils in eine neue Zeile, anstatt unterjährig nur den Zähler zu erhöhen und erst bei Jahreswechsel eine neue Zeile zu beschreiben und den Zähler wieder von vorn beginnen zu lassen. Ich habe selbst versucht das anzupassen, jedoch klappt das nicht, dazu reichen meine Kenntnisse nicht ganz aus.
Anzeige
AW: fortlaufende Nummer mit Archiv
19.11.2018 09:22:46
Oisse
Hallo Tim,
das hatte ich wohl falsch verstanden. Ich hoffe, er passt jetzt so. Das Datum musst du natürlich dann noch ändern auf 01.01. 
Sub Fortl_Nummer()
Dim wkb As Workbook
Dim ws As Worksheet
Dim lz As Long
Dim Jahr As String
Dim Tag As String
Set wkb = ThisWorkbook
Set ws = wkb.Worksheets("Auftrag")
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
Jahr = Year(Date)
Tag = Format(Date, "dd.mm")
With ws
If Format(Date, "dd,mm") >= "18.11" Then
If .Range("B" & lz)  Jahr Then
.Range("A" & lz + 1) = "AU"
.Range("B" & lz + 1) = Jahr
.Range("C" & lz + 1) = 1
Else
.Range("C" & lz) = .Range("C" & lz) + 1
End If
End If
End With
End Sub

Zum Testen einfach mal das Jahr in der letzten Zeile deines Arbeitsblattes (Spalte B) auf 2017 ändern.
Gruß Oisse
Anzeige
AW: fortlaufende Nummer mit Archiv
19.11.2018 09:47:41
Tim
Perfekt, vielen Dank!
AW: fortlaufende Nummer mit Archiv
19.11.2018 10:00:28
Oisse
Gern geschehen.
;

Forumthreads zu verwandten Themen

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
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
Anzeige
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
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
Mittelwert aus fortlaufender Liste mit Bedingung
Simon

Hallo Excel-Profis,
bisher konnte ich meine Probleme immer mit einer Suche in diesem oder in anderen Excel-Foren lösen - dafür schon mal meinen Dank für eure zahlreichen Tipps und Lösungen.
Nun brauche ich aber eure aktive Hilfe, weil ich ehrlich gesagt nicht genau weiß, wonach ich hier...
09.04.2015 09:41:21
Thread-ID: 1419813
6 Beiträge
Formellösung für Zeilennummer mit Bedingung
Joerschi

Hallo liebes Forum,
wie könnte man folgendes Problem als Formel darstellen (Skizze unten):
In Spalte A stehen in unregelmäßigen Abständen Zelleninhalte (sonst leere Zellen).
Immer wenn ein Zelleninhalt existiert, soll in Spalte B die Zeilennummer stehen - soweit, so einfach (Formel...
13.04.2015 10:34:44
Thread-ID: 1420462
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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