Save Historie via Privat Sub Workbook Aftersave
27.04.2015 11:06:19
Denis
in meiner Arbeitsmappe habe ich zwei Tabellen "Template" und "Save History"
Ich möchte mit diesem Code das wann immmer das Template gespeichert wird der User und die aktuelle Zeit im Template in einem definierten Feld und im Reiter Save Histroy eine Liste erstellt wird. Wenn ich es ausführe kommt der Debugger und markiert die Zeile tlbSaveHistory.Rows("2:2").Select
Was mache ich falsch?
Hier ist der code
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
tblTemplate.Cells(2, 3) = Application.UserName
tblTemplate.Cells(2, 6) = Format(Now, "DD.MM.YY hh:mm ")
tblSaveHistory.Rows("2:2").Select
Selection.Insert Shift:=xlDown
tblSaveHistory.Cells(2, 1) = Application.UserName
tblSaveHistory.Cells(2, 2) = Format(Now, "DD.MM.YY hh:mm ")
End Sub