Microsoft Excel

Herbers Excel/VBA-Archiv

Save Historie via Privat Sub Workbook Aftersave

Betrifft: Save Historie via Privat Sub Workbook Aftersave von: Denis
Geschrieben am: 27.04.2015 13:22:15

Hallo, ich benötige mal eure Hilfe.

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
Danke schon mal für Eure Hilfe.

  

Betrifft: Doppelt, AW siehe unten, owT von: Michael (migre)
Geschrieben am: 27.04.2015 13:24:50

.


 

Beiträge aus den Excel-Beispielen zum Thema "Save Historie via Privat Sub Workbook Aftersave"