Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

laufende Dokumentennr.

laufende Dokumentennr.
28.08.2006 10:54:59
Emma
Hallo,
kann mir jemand sagen, wie man eine laufende Dokumententennummer einfügen kann, die sich bei jedem drucken der Seite um 1 erhöht?
Vielen Dank
Emma

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: laufende Dokumentennr.
28.08.2006 11:26:59
egres
Hi Emma
schau mal in https://www.herber.de/bbs/user/36207.xls nach!
vielleicht hilf dir das weiter!
Baue ein Buton fürs Drucken ein und passe eines der Makro ein.
Gruss Egres
AW: laufende Dokumentennr.
28.08.2006 11:44:56
emma
Dankeschön,
ich versuch mich mal dran.
emma
AW: laufende Dokumentennr.
Orakel
Hallo Emma,
ich denke, Du musst für die entsprechende Tabelle einen Extra-Druckbutton machen. Dieser Code ginge dann:
Sub drucken()
    Sheets("Tabelle1").PrintOut Copies:=1, Collate:=True
    Call Nummer
End Sub
Sub Nummer()
    Dim RN As Integer
    RN = Sheets("Tabelle1").Cells(1, 1)
    Sheets("Tabelle1").Cells(1, 1) = RN
    RN = RN + 1
    Sheets("Tabelle1").Cells(1, 1) = RN
End Sub
wenn Du das Druckereignis in "Diese Arbeitsmappe" nutzt
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
zählt er jeden Druckauftrag.
Grüße
Orakel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige