ich habe folgende Fragen:
Ich habe eine Tabelle ( heißt bei mir Station1 ) dort ist auch nur 1 Blatt hinterlegt, welches ich immer und immer wieder 48 mal mit fortlaufender Nr. drucke.
Hierzu verwende ich folgende Programmierung.
Sub Druckzähler()
Dim AnzSeiten As Integer, I As Integer
alt = Cells(34, 27)
AnzSeiten = InputBox("Wieviele Seiten sollen gedruckt werden?", "Frage", 1)
For I = 1 To AnzSeiten
Cells(34, 27) = alt + I
ActiveSheet.PrintOut
Next I
End Sub
Ist es hier möglich den Counter nach dem Drucken automatisch auf 0 zu setzen?
Nun benötige ich eine weitere Programmierung für folgendes:
Es gibt eine feste Zählzeit, welche bei 00:00 - 00:30 beginnt und bei 23:30 - 24:00 endet. Ich hätte nun gerne das bei der Abfrage des Druckens diese Zeit automatisch immer um 00:30 erhöht wird. Ist dies überhaupt möglich ? Die Zählzeit befindet sich in Celle 33, 16
Alle meine bisherigen Versuche mislangen. Meine VBA Kenntnisse sind jetzt auch nicht besonders gut.
Ich wäre froh , wenn mir jemand helfen kann.
Gruß und Dank
Kevin