Supportnet / Forum / Tabellenkalkulation
Mehrfachdruck mit Nummerierung
Frage
Hallo, Helfer
ich möchte(?) muss ein Excel-Tabellenblatt ca. 200 mal ausdrucken, brauche aber eine fortlaufende Nummer auf jeden Ausdruck. Gibt's da 'ne schnelle Lösung ???
Danke
Wilko
Antwort 1 von Aliba
Hi Wilko,
hierfür brauchst Du eigentlich einen VBA-ler. Ich kann Dir leider nur eine recht dürftige Hilfestellung geben, die einem aufgezeichneten Makro entspringt.
Meine Idee war, den Wert einer Zelle jeweils um 1 zu erhöhen, das erreiche ich durch das Kopieren einer Zelle mit dem Wert 1 und der Funktion Inhalte einfügen, addieren. Diese Schritte habe ich mit dem Rekorder aufgezeichnet und erhalte dann folgendes Makro. Die Zelle mit dem Wert 1 steht ausserhalb des Druckbereiches in diesem Falle H1 und die Zelle in der sich der Wert erhöht ist in diesem Fall C40:
Sub Makro1()
Rang("H1").Select
Selection.Copy
Range("C40").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Nun könnte man eine Befehlsschaltfläche erstellen und dieses Makro zuweisen. Bei jedem Klick erhöht sich der Wert in C40 um 1 und es erfolgt ein Ausdruck. Der Nachteil: Man muß halt 200 mal auf den Button klicken. Man könnte es sicherlich auch als Code in das Tabellenblatt bringen, aber ich befürchte dann läuft es endlos, weil sich ja immer C40 verändert.
Also wie gesagt leider keine elegante oder optimale Lösung, aber vielleicht findet sich ja noch ein VBA-ler,der dann eine bessere Lösung vorschlagen kann.
Meine ist nur für den Notfall gedacht, unter dem Motto : Besser als nichts.
CU Aliba
hierfür brauchst Du eigentlich einen VBA-ler. Ich kann Dir leider nur eine recht dürftige Hilfestellung geben, die einem aufgezeichneten Makro entspringt.
Meine Idee war, den Wert einer Zelle jeweils um 1 zu erhöhen, das erreiche ich durch das Kopieren einer Zelle mit dem Wert 1 und der Funktion Inhalte einfügen, addieren. Diese Schritte habe ich mit dem Rekorder aufgezeichnet und erhalte dann folgendes Makro. Die Zelle mit dem Wert 1 steht ausserhalb des Druckbereiches in diesem Falle H1 und die Zelle in der sich der Wert erhöht ist in diesem Fall C40:
Sub Makro1()
Rang("H1").Select
Selection.Copy
Range("C40").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Nun könnte man eine Befehlsschaltfläche erstellen und dieses Makro zuweisen. Bei jedem Klick erhöht sich der Wert in C40 um 1 und es erfolgt ein Ausdruck. Der Nachteil: Man muß halt 200 mal auf den Button klicken. Man könnte es sicherlich auch als Code in das Tabellenblatt bringen, aber ich befürchte dann läuft es endlos, weil sich ja immer C40 verändert.
Also wie gesagt leider keine elegante oder optimale Lösung, aber vielleicht findet sich ja noch ein VBA-ler,der dann eine bessere Lösung vorschlagen kann.
Meine ist nur für den Notfall gedacht, unter dem Motto : Besser als nichts.
CU Aliba
Antwort 2 von Nanuk
Ich habe die Funktion mal Ausdruck genannt:
Im Feld A1 wird die Nummer des jeweiligen Ausdrucks angegeben!!
h. i. h.
Nanuk
Public Sub Ausdruck()
Dim Zahl As Integer, Wert As Integer, CIAO As String
Zahl = InputBox("Anzahl der gewünschten Ausdrucke _
eingeben!")
For Wert = 1 To Zahl Step 1
Range("A1").Select
ActiveCell.Formula = Wert
ActiveWindow.SelectedSheets.PrintOut
Next Wert
CIAO = "Der Ausdruck von " & Zahl & "Seiten _
war erfolgreich!"
MsgBox(CIAO,"Tschöh!")
End Sub
Im Feld A1 wird die Nummer des jeweiligen Ausdrucks angegeben!!
h. i. h.
Nanuk
Antwort 3 von Nanuk
Kleiner Fehler:
Vorletzte Zeile ohne Tschöh (sonst könnte es Schwierigkeiten geben):
Nanuk
Vorletzte Zeile ohne Tschöh (sonst könnte es Schwierigkeiten geben):
...
MsgBox(CIAO)
...
Nanuk