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

Beim Drucken aufzählen der DokumentenNr.

Forumthread: Beim Drucken aufzählen der DokumentenNr.

Beim Drucken aufzählen der DokumentenNr.
18.01.2007 22:01:37
Schäfer
Hallo,
wer kann mir helfen !!!
nach der Umstellung auf EXEL 2003
ist das Makro verloren gegangen.
Wir benötigen hilfe bei der Anforderung,
das in einer Zelle die eingegebene Zahl
beim Drucken immer um eins erhöht wird.
wenn wir also mit eins anfangen und 50 Seiten
Drucken hat zweite seite die Nr 2,
die dritte Seite die Nr 3
und die letzte gedruckte Seite dann
die Nummer 50.
grüsse aus Koblenz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Keiner mehr da der uns helfen kann ?
18.01.2007 22:42:57
Schäfer
Hallo,
ist denn keiner mehr da, der uns helfen kann.
AW: Keiner mehr da der uns helfen kann ?
18.01.2007 22:58:45
Wetterfrosch
Hi,
hast du nicht mitbekommen, dass in D Orkan angesagt ist?
Ich hate z.B. 4 Stunden keinen Strom.
mfg W.
Hilfe !!!
18.01.2007 23:31:20
Schäfer
Hilfe !!!
Anzeige
AW: Beim Drucken aufzählen der DokumentenNr.
18.01.2007 23:35:50
Josef
Hallo Schäfer,
welche Zelle, welches Tabellenblatt, wo wird die Seitenanzahl angegeben?
Gruß Sepp

Beim Drucken aufzählen der DokumentenNr.
18.01.2007 23:41:02
Schäfer
Hallo Sepp,
der wert steht in der Zelle "F2"
im Blatt "Tabelle1"
es soll der Wert in der Zelle F2 immer um eins erhöht werden.
gruss
Bruno
Anzeige
AW: Beim Drucken aufzählen der DokumentenNr.
18.01.2007 23:48:37
Josef
Hallo Bruno,
meinst du so?
Sub Drucken()
    Dim intCounter As Integer, intCopies As Integer
    
    intCopies = Application.InputBox("Wieviele?", "Drucken", 1, Type:=1)
    
    If intCopies < 1 Then Exit Sub
    
    With Sheets("Tabelle1")
        
        For intCounter = 1 To intCopies
            .PrintOut
            .Range("F2").Value = Range("F2").Value + 1
        Next
        
    End With
    
End Sub

Gruß Sepp
Anzeige
AW: Beim Drucken aufzählen der DokumentenNr.
18.01.2007 23:56:29
Schäfer
SUPER !!!
genau so haben wir uns das gedacht !!!
vielen Dank Sepp !!!
viele grüße aus Koblenz
DANKE !!!!!!!!!!!!
18.01.2007 23:59:29
Schäfer
DANKE !!!!!!!!!

Beliebteste Forumthreads (12 Monate)

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