Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufende Nummer beim Drucken

Laufende Nummer beim Drucken
25.04.2005 09:19:53
Uwe
Hallo Ihr VBA Fans,
ich möchte in einem Exel Arbeitsblatt in Zelle b1 zum Bsp. eine Zahl
(213) eingeben und wenn dann der Druck beginnt soll auf den Kopien jeweils
eine laufende Nummer in b1 erscheinen. ( Seite 1 = 213, Seite 2 =214 usw.)
Wie stell ich das nur an?

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

Betreff
Datum
Anwender
Anzeige
AW: Laufende Nummer beim Drucken
25.04.2005 13:26:19
serge
Hallo Uwe
baue das in eine Makro ein und nach dem Zuzählen wir die Tabelle gedruckt
Serge

Sub Makro1()
Range("B1").Select
ActiveCell.FormulaR1C1 = (ActiveCell.Value) + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

AW: Laufende Nummer beim Drucken
25.04.2005 13:42:28
Nils
Hallo Uwe
Command Button einfügen (Format auf "nicht drucken" ändern), im Design Mode folg. Code pasten bewirkt:
Abfrage nach Druckanzahl, und dann Druck aktuelle Seite, dann +1 im Counter und Druck zweite Seite usw...

Private Sub CommandButton1_Click()
anzahl = InputBox("Anzahl Drucke?")
For i = 1 To anzahl
ActiveSheet.Range("b3") = ActiveSheet.Range("b3") + (i - 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

Gruss
nils
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige