Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufende Nummern automatisieren

Forumthread: Laufende Nummern automatisieren

Laufende Nummern automatisieren
10.02.2005 14:09:46
Leo
Ist es möglich dass nach jedem Aufruf einer Datei eine Nummer laufend automatish eins dazuzählt, z.B. Rechnungsnummer sobald man eine neue Rechnung schreibt?
Gruss Leo
Anzeige
AW: Laufende Nummern automatisieren
Tina
Hi Leo,
wann soll eine Nummer höher gerechnet werden?
wenn die Datei geöffnet wird?
oder was soll das höherzählen auslösen?
Gruß Tina
AW: Laufende Nummern automatisieren
leo
man muss sich das so vorstellen ich habe eine rechnungsnummer z.b 12703, ok, ich schreibe damit eine rechnung und am nächsten tag muss ich die nächste rechnung schreiben. dann sollte beim öffnen der datei die nummer 12704 erscheinen. keine ahnung ob das überhaupt möglich ist, aber wenn wie würde das gehn, würde mich sehr über deine hilfe freuen.
gruss Leo
Anzeige
AW: Laufende Nummern automatisieren
Tina
Hi Leo
vorausgesetzt dein Datum steht in Tabelle1 und in Zelle a1
du wechselst in die Entwicklungsumgebung mit Alt und F11
Dann klickst du linksseitig doppelt auf "Diese Arbeitsmappe"
und da kopierst du folgendes rein:

Private Sub Workbook_Open()
Tabelle1.Cells(1, 1) = Tabelle1.Cells(1, 1) + 1
End Sub

Falls dein Datum woanders steht, musst du die Werte entsprechend ändern.
Gruß Tina
Anzeige
AW: Laufende Nummern automatisieren
10.02.2005 14:50:16
Pepi
Hallo Leo,
schreibe folgendes Makro in "Diese Arbeitsmappe". Dann wird jedesmal beim öffnen der Datei der Wert in "A1" um 1 erhöht.

Private Sub Workbook_Open()
Range("A1").Value = Range("A1").Value + 1
End Sub

Die Zelle kannst du ja ändern.
Grüsse aus Wien
Pepi
Anzeige
AW: Laufende Nummern automatisieren
Leo
erstmal vielen dnk für den tip, aber ich bin noch total blöd im excel und weiss nicht wo ich was einsetzen muss, ich geb dir einen link dann könntest mir vielleicht sagen wie das konkret ei meinem formular zu machen ist. danke
https://www.herber.de/bbs/user/17797.xls
gruss Leo
Anzeige
AW: Laufende Nummern automatisieren
leo
hab vergessen anzuhaken dass die frage noch offen ist
AW: Laufende Nummern automatisieren
Tina
Hi Leo,
du wechselst in die Entwicklungsumgebung mit Alt und F11
Links ist ein Fenster da steht "Projekt VBAProjekt".
Dann klickst du doppelt auf "Diese Arbeitsmappe"
Dann öffnet sich ein Blatt
und da kopierst du folgendes rein:

Private Sub Workbook_Open()
Tabelle1.Cells(15, 3) = Tabelle1.Cells(15, 3) + 1
End Sub

Dann klappt es bestimmt.
Gruß Tina
Anzeige
AW: Laufende Nummern automatisieren
Leo
Hey du bist ja richtig gut, danke funktioniert, allerdings hab ich jetzt dazu noch ein problem und zwar, er zählt mir nur bei dem von mir gespeicherten formular mit. wenn ich jetzt eine rechnung schreibe und ich ruf das original formular auf dann zählt er nicht mit, da muss ich immer die letzte gespeciherte rechnung aufrufen. ist ein bissl unsicher weil man ja nicht immer weiss welche rechnung man zuletzt geschrieben hat, bzw. wenn man immer den gleichen dateinamen verwendet, dann hat man die dateien nicht mehr gespeichert der vorgehenden rechnungen, gibts da auch noch eine lösung dazu?, danke für deine mühe
gruss Leo
Anzeige
AW: Laufende Nummern automatisieren
Tina
Hi Leo,
schreibst du in die Datei und legst mit Speichern unter eine neue Datei an?
Dann würden auch alte Rechnung bei jedem Öffnen die Rechnungsnr. verändern! Das wäre ja nicht in deinem Sinne.
Die Frage ist: musst du jede Rechnung speichern?
Du könntest auch mit einer Excel Vorlage arbeiten.
Oder Du könntest auch die Rechnung schreiben und ausdrucken und dann die Daten in einer fortlaufenden Liste (Warenausgangsbuch) abspeichern. Dann könnte man die fortlaufende Rechnungsnummer aus dieser fortlaufenden Liste errechnen lassen.
Du siehst, dir sind keine Grenzen gesetzt.
Gruß Tina
Anzeige
AW: Laufende Nummern automatisieren
Leo
Guter Vorschlag nur hab ich keinen blassen schimmer wie ich das machen könnte, hihi.
Gruss Leo
AW: Laufende Nummern automatisieren
Leo
Jetzt hätte ich eine idee, wenn ich die rechnungen per nummre abspeicher dann kann ich immer die letzte nummer nehmen die ich gespeichert habe. gibts eine möglichkeit dass beim speichern immer gleich die nummer als dateiname eingesetzt wird?
gruss Leo
Anzeige
AW: Laufende Nummern automatisieren
Tina
Hi Leo,
da fällt mir ein, du kannst dir hier im Download Bereich eine Datei downloaden, die heißt Quittungsbuch oder so ähnlich.
Damit fing bei mir alles an, ich habe durch Zufall die Datei gefunden und seit dem lässt mit VBA nicht mehr los.
Gruß Tina
AW: Laufende Nummern automatisieren
Leo
Hab mir diese liste runtergeladen. Müsste ich da immer alles nochmal eintragen?
Gruss Leo
Anzeige
;

Forumthreads zu verwandten Themen

Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Anzeige
Laufende Nummer
Peter

Hallo,
eine Frage zur laufenden Nummer.
A11=WENN(ISTLEER(B11);"";1)
A12==WENN(NICHT(ODER(ISTLEER(A11);ISTLEER(B12)));$A$11+ANZAHL($A$11:A11);"")
und runter kopieren.
Geht auch, solange in B11 was steht.
Ist in B11 nichts, was bei mir vorkommen kann, bekomme ich Fehlermel...
23.11.2008 20:48:00
Thread-ID: 1027162
4 Beiträge
Anzeige
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
Laufende Nummerierung
Walter

Hallo Excelfreunde,
Ich habe eine Tabelle, in Spalte B stehen in 1000 Zeilen ca 100 Artikel,
nun soll in Spalte A die laufende Nummer eingetragen werden, aber nur immer für den gleich Artikel.
Danke für Euere Hilfe
Gruß Walter
28.05.2009 13:56:12
Thread-ID: 1077952
4 Beiträge
Fortlaufende Nummer
Pedro

Hallo zusammen!
Habe da einen Bericht, der eine fortlaufende Nummer erhalten soll. Und zwar sollte diese Nummer mit dem aktuellen Datum (=HEUTE()) gekoppelt sein. D.h. der Bericht von heute 08.07.2009 hat die fortlaufende Nummer 93, der morgige Bericht die Nummer 94 etc.
Dieser Bericht...
08.07.2009 16:21:10
Thread-ID: 1087234
3 Beiträge
Anzeige
Laufende Nummer hinter Zahlen
Werner

Hallo zusammen,
Aus den Spalten A, B und C bilde ich eine Nummer in Spalte D mit dieser Formel
=A4&B4&WENN(C4="";"00";C4).
Nun möchte ich in Spalte E noch eine Laufende Nummer für jede Nummer automatisch anhängen wie das Beispiel in Spalte F zeigt.
Hat jemand eine Lösun...
25.08.2009 11:35:54
Thread-ID: 1098356
9 Beiträge
Fortlaufende Nummer
Hajo
Hallo Jangowenn Du dich mit VBA auskennst kannst Du dir folgendes Makro Anpassen
25. [VBA] Blatt mehrmals drucken mit Seitennumerierung Sub Drucken()
For x = 1 To 10
Range("D15") = x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next x
End SubGruß Hajo
14.04.2002 11:17:57
Thread-ID: 113130
5 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
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 in meinem Template speichern
Deister

Hallo alle zusammen,
Ich habe eine Datei als Template abgespeichert. Nun möchte ich dass sich die Zahl in Zelle B2 bei jedem Öffnen des Templates um 1 erhöht.
Das klappt ja auch mit folgendem Code,
Sheets("Saisie").Select
unprotect_with_password
Range("B2").Select
Active...
09.07.2010 13:11:56
Thread-ID: 1166326
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige