AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 12:22:29
sepp
hallo tim!
danke für die schnelle antwort.
ich bin nicht gerade der crack in vba... ich hatte mal die grundkenntnisse vor 11 jahren in einem programmierkurs gelernt... aber seitdem nicht mehr gebraucht...
da ja monat und jahr (im grunde) statisch sind, benötige ich nur das tagesdatum.
eine msgbox macht meisstens stress beim benutzer, besser wäre es eine kleine pause einzulegen, ähnlich wsh "sleep 5" oder so in der richtung...
script:
Sub Tageszaehler()
' Dieses Programm druckt die aufsteigende Tage in der
' Excel Weckliste
Dim xzellwert As Integer
Dim yzellwert As Integer
Dim startnummer As Integer
Dim endnummer As Integer
Dim ausdrucke As Integer
Dim i As Integer
'Tageseingabe:
startnummer = Application.InputBox("Bitte Tag eingeben für ERSTER Tag: ")
endnummer = Application.InputBox("Bitte Tag eingeben für LETZTER Tag: ")
ausdrucke = endnummer - startnummer + 1
'Zelleingabe
xzellwert = Application.InputBox("Bitte Spalten-nummer der variablen Zelle eingeben: ")
yzellwert = Application.InputBox("Bitte Zeilen-nummer der variablen Zelle eingeben: ")
' Bestaetigung der Eingabewerte:
MsgBox "Ihr Tagesdatum ist in SPALTE " & xzellwert & " / ZEILE " & yzellwert _
& ". Sie starten den DRUCK bei Tag: " & startnummer _
& " und enden bei Tag: " & 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
'ActiveWorkbook.Sheets("Tabelle1").Range("Test").Value = "Test1"
'Beendigung des Druckauftrages
'MsgBox "Folgende Anzahl an Blaettern wurde auf Ihrem Standarddrucker gedruckt: " _
'& ausdrucke, vbOKOnly
End Sub
bei diesem script hab ich eben das problem, dass es zwar 30 seiten druckt, aber nichts im feld drinne steht.
danke, gruss sepp