Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
16.10.2025 17:40:39
Rabattstafel
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

Autom. Rechn.-Nummern-Vergabe

Forumthread: Autom. Rechn.-Nummern-Vergabe

Autom. Rechn.-Nummern-Vergabe
25.06.2004 11:06:59
heiko
Ich habe da ein kleines Problem.
"Fortlaufende Rechn.-Nummerierung in Excel"
Im unten stehenden Link wird so etwas für 30 Euro angeboten.
Gibt es so etwas auch gratis ! :-) (muß sparen)
http://www.add-in-world.com/katalog/xl-rgnummer/
Für einen Tip wäre ich sehr dankbar!
Danke
Gruß Heiko
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autom. Rechn.-Nummern-Vergabe
geri
Hallo Heiko
so gehts

Private Sub RechnungsNummer()
Dim ExcelExe$, dName$, Nr$
dName = "C:\Daten\" & "\Zaehler.txt"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Open dName For Output As #1
Print #1, "0"
Close
Open dName For Input As #1
End If
Input #1, Nr
Close
ActiveSheet.Range("B20") = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub

erstelle ein File mit Name "zähler.txt" und trage die Zahl 1 ein
starte Macro am besten beim Speichern, dann wird Zahl nur beim speichern erhöht und nicht beim Vorlage öffnen
gruss geri
Anzeige
AW: Autom. Rechn.-Nummern-Vergabe
25.06.2004 11:35:50
Hermann
Hallo Heiko
Workbook_BeforePrint Ereignis. Alt + F11, links Doppelklick auf Diese Arbeitsmappe, neues Fenster, links oben Dropdown auf Workbook, rechts oben auf BeforePrint, Code einfügen, Fenster schliessen.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("ZELLE") = Range("ZELLE") + 1
End Sub

Gruß Hermann
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