Gedruckt von, Erweiterung?
16.11.2015 06:42:37
Bernd
Ich habe da mal zwei Fragen, ob nachstehender Code veränderbar ist.
Hier mein jetziger Code, welchen ich auch hier erhalten habe:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim PZ As Range
Dim UserN$, UserId$, UserPc$
On Error GoTo Fehler
UserN = Application.UserName
UserId = Environ("Username")
UserPc = Environ("Computername")
Set PZ = ActiveSheet.Range("A51") 'Zielzelle
With PZ
If TypeName(ActiveSheet) = "Worksheet" Then
If InStr(.Value, "gedruckt von: ") > 0 Then
If MsgBox("Das aktuelle Tabelleblatt wurde bereits " & vbCrLf & .Value _
& " ," & vbCrLf & vbCrLf & "soll es noch einmal gedruckt werden?", vbYesNo Or vbExclamation Or _
vbDefaultButton1, "Bereits gedruckt") = vbNo Then
Cancel = True
Else
.Value = "gedruckt von: " & UserN & " / " & UserId & " am PC " & UserPc
End If
Else
Application.EnableEvents = False 'unterbindet das ChangeEvent
'ActiveSheet.Unprotect Password:="abc" 'wenn Passwort verwendet wurde
.Value = "gedruckt von: " & UserN & " / " & UserId & " am PC " & UserPc
'ActiveSheet.Protect Password:="abc"
Application.EnableEvents = True ' Events wieder einschalten
End If
End If
End With
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Meine Fragen wären, wenn das Blatt gedruckt wurde, wird dies ja am Blatt, in Zelle A51 vermerkt (wer das Blatt von wo aus gedruckt hat).Wenn es erneut gedruckt wird, wird die Zelle A51 überschrieben.
Ist es möglich, nach jedem erneuten Drucken, dies fortlaufend einzutragen?
Also nach dem ersten Druck in Zelle A51, nach dem zweiten Druck in Zelle A52 usw.
Meine zweite Frage, ist es möglich zuzüglich zu den Informationen wer gedruckt hat, auch das Datum und die Uhrzeit mit einzutragen?
Da meine VBA Kenntnisse nur begrenzt sind, würde ich um dementsprechende Änderung meines o.a. Codes bitten, falls dies machbar ist.
Ich Danke schon mal im Voraus und wünsche jeden einen schönen Wochenstart,
mfg Bernd