Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fortlaufende Nummer

Forumthread: Fortlaufende Nummer

Fortlaufende Nummer
23.06.2004 11:22:26
Mario
Hallo
Ich hoffe es kann mir jemand helfen.
Wie kann ich eine Rechnungsnummer in einem file abspeichern, wenn ich das excelfile schliesse bzw. speichere. Und wenn ich es wieder öffne das das excelfile nach der Rechnungsnummer fragt und in einer zelle anzeigt.
Gruss
Mario
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fortlaufende Nummer
23.06.2004 11:29:25
Mario
Hab es gesehen
Aber kannst mir den code erklären?
Denn ersten Teil versteh nicht ganz!
Gruss
Mario
Anzeige
AW: Fortlaufende Nummer
geri
Hallo MArio
Option Private Module

Sub Blattspeichern()
Application.ScreenUpdating = False
Dim strQuest As String
strQuest = MsgBox("Sind Sie sicher alle Artikel / korrekte Stückzahl gewählt ? " & _
" alles gewählt JA / NEIN wenn NEIN keine Speicherung ?", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Call RechnungsNummer  'Aufruf Nummernvergabe s. Macro 2
Sheets("Rechnung").Select
ActiveSheet.Copy
Sheets("Rechnung").PrintOut Copies:=2   'Rechnunge zweimal ausdrucken
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & Range("B20") & "_" & Range("B12") & Format(Now, "dd.mm.yyyy") & ".xls"  ' Speichern unter Name aus Zellen B20+B12 und zus. Datum
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

du kannst den oberen Teil auch weglassen und nur Rechnungsnummer benutzen
gruss geri
Anzeige
AW: Fortlaufende Nummer
geri
Hallo MArio
Option Private Module

Sub Blattspeichern()
Application.ScreenUpdating = False
Dim strQuest As String
strQuest = MsgBox("Sind Sie sicher alle Artikel / korrekte Stückzahl gewählt ? " & _
" alles gewählt JA / NEIN wenn NEIN keine Speicherung ?", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Call RechnungsNummer  'Aufruf Nummernvergabe s. Macro 2
Sheets("Rechnung").Select
ActiveSheet.Copy
Sheets("Rechnung").PrintOut Copies:=2   'Rechnunge zweimal ausdrucken
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & Range("B20") & "_" & Range("B12") & Format(Now, "dd.mm.yyyy") & ".xls"  ' Speichern unter Name aus Zellen B20+B12 und zus. Datum
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

du kannst den oberen Teil auch weglassen und nur Rechnungsnummer benutzen
gruss geri
Anzeige
AW: Fortlaufende Nummer
23.06.2004 12:17:22
Mario
Was brauche ich?
Sobald ich Excel verlasse möchte ich das er die Rechnungsnummer automatisch in dem file
abgespeichert wird.
Und wenn ich wieder das excelfile starte soll er nach der Nummer fragen und in der betrefende zelle abspeichern!
Danke
AW: Fortlaufende Nummer
geri
Hallo Mario
mit dem Code vergibt er die Rechnungsnummer AUTOMATISCH
ohne zutun nach dem Motto "LAST + 1" somit muss man sich darum
nicht kümmern, im TXT File wird die letzte Nummer immer beim speichern
überschrieben, falls du es anders möchtest, musst du nochmals nachhaken
beim nächsten mal öffnen der Vorlage steht die letzte Nummer in der Zielzelle
wenn du es anders möchtest habe ich keine Lösung parat
gruss geri
Anzeige
AW: Fortlaufende Nummer
23.06.2004 14:07:24
Mario
Tut mir leid, aber will nur wissen wo ich den code einfügen muss.
Danke
Mario
AW: Fortlaufende Nummer
geri
Mario da haben wir und falsch verstanden
SORRY
also File offen
markiere CODE -- EXCEL --- Alt u. F11 (Editor)
EINFUEGEN -- MODUL --- und kopiere den Code hinein
das wars
gruss geri
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
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
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
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
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