Beim Speichern Datum und Benutzer eintragen
08.07.2015 11:28:32
Alexander
Habe bei euch im Forum folgendes gefunden.
Ich benötige das zweite Makro jedoch ein bisschen abgeändert.
Leider kenne ich mich mit Makros gar nicht aus.
Folgendes war im Beitrag:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim iRow As Integer
With Worksheets("Logs")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = Application.UserName
.Cells(iRow, 2).Value = Now
.Columns.AutoFit
End With
End Sub
UND:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Application.EnableEvents = False
With Worksheets("Änderungen_dokumentieren")
Worksheets("Änderungen_dokumentieren").Unprotect ("password") 'Wäre es jetzt möglich diese zwei Codes zu vereinen?
Ich meine Damit dass der Zweite (Ausführliche) Code nur dann ausgeführt wird wenn gespeichert wird?
Und bei mir wird die Selection der Zelle nach jedem ausführen des Makros verschoben.
d.h. wenn ich was in eine Zelle eintrage,(mit Enter oder Pfeil bestätige) bin ich danach nicht in der nächsten Zelle sondern irgendwo auf dem Arbeitsblatt.
Kann man den Log auf irgendwie 500 Zeilen begrenzen dass dann wieder oben angefangen wird?
Danke euch schon mal im voraus.