Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige