hallo zusammen,
ich habe gerade dieses makro bei euch gefunden
-----------------------------------------------------
Sub Losdrucker1()
'
' Dieses Programm druckt eine aufsteigende LOSnummer in eine vorher ausgewählte EXCELZELLE.
' Das MAKRO wird von Extras>Makros>Losdrucker1 gestartet.
' Bitte darauf achten, dass der zu verwendende Drucker als Standarddrucker eingestellt ist,
' da im Makro keine Druckeranpssung erfolgt.
' Spalten A, B, C, D,... werden als Zahlen 1,2,3,4... eingelesen
' viel vergnuegen - martintino / 14.1.2008
Dim xzellwert As Integer
Dim yzellwert As Integer
Dim startnummer As Integer
Dim endnummer As Integer
Dim ausdrucke As Integer
Dim i As Integer
'
'Losnummerneingabe:
startnummer = Application.InputBox("Bitte Losnummer eingeben für ERSTES LOS: ")
endnummer = Application.InputBox("Bitte Losnummer eingeben für LETZTES LOS: ")
ausdrucke = endnummer - startnummer + 1
'Zelleingabe
xzellwert = Application.InputBox("Bitte Spalten-nummer der variablen Zelle eingeben: ")
yzellwert = Application.InputBox("Bitte Spalten-nummer der variablen Zelle eingeben: ")
' Bestaetigung der Eingabewerte:
MsgBox "Ihre LOSZELLE ist SPALTE " & xzellwert & " / ZEILE " & yzellwert _
& ". Sie starten den DRUCK bei LOS-Nummer: " & startnummer _
& " und enden bei LOS-Nummer: " & endnummer & _
". Bitte legen Sie die folgende Anzahl an Blaettern in Ihren Standarddrucker ein: " _
& ausdrucke & ". Danach drücken Sie bitte OK!!! " & _
"V O R S I C H T!!! - Alle Blätter werden OHNE UNTERBRECHUNG ausgedruckt!", _
vbYesNoCancel
'Seriendruck
For i = startnummer To endnummer
ActiveSheet.Cells(yzellwert, xzellwert).Value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
'Beendigung des Druckauftrages
MsgBox "Folgende Anzahl an Blaettern wurde auf Ihrem Standarddrucker gedruckt: " _
& ausdrucke, vbOKOnly
End Sub
-----------------------------------------------------
das ist genau das was ich gesucht habe und es funzt auch super, aber ich bräuchte die nummerierungen mit ungeraden zahlen, d.h. ich möcht mein 1. blatt mit 1 beginnen, danach 3,5,7....u.s.w.
kann mir jemand erklären wo ich das im makro angeben muss?!??!
wäre echt super nett, wenn mir jemadn helfen könnte.....
Fetzo1
