Seitenzahlen durch VBA Krieren
13.02.2017 09:10:17
Tino
Ich habe mir Makro's gebastelt welche als Ergebnis auf Seite 1 eine Seitenzahl kreieren
Dazu zählt mein Makro alle 12. Stunden 1 dazu. Funktioniert wunderbar.
Makro:
Private Sub Workbook_Open()
Application.OnTime TimeValue("12:30:00"), "Bericht_Seitenzahl"
Application.OnTime TimeValue("00:30:00"), "Bericht_Seitenzahl"
End Sub
Option Explicit
Sub Bericht_Seitenzahl()"
With Sheets("Tabelle 1")
ActiveSheet.Unprotect "123"
ActiveSheet.Range("KQ51") = ActiveSheet.Range("KQ51") + 1
Dim wbk As Worksheet
For Each wbk In Worksheets
wbk.Protect _
Password:="123", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=True, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True
Next wbk
End With
End Sub
Das Problem welches ich jetzt aufgedeckt habe:
Wenn ein Kollege die Datei zum angegebenen Zeitpunkt (bei mir 12:30 und 0:30) nicht geöffnet hat oder mit einer Kopie auf einem anderen Rechner arbeitet stimmen die Seitenzahlen nicht überein.
Wie kann ich sicherstellen das wenn heute Morgen die Seitenzahl bei 10/ 400 steht z.b. Morgen früh bei 12/400 Steht auch wenn Excel geschlossen war?
Des Weiteren möchte ich erreichen das bei 400/400 er wieder bei 001/400 beginnt; hat da jemand ne Lösung?
Vielen Dank im Vorraus!
Beste Grüße Tino