Zugriff auf Datei notieren
08.11.2019 13:53:31
MaBlu
ich habe das Problem dass ich die Notierung der Zugriffe von oben nach unten (letzter Eintrag ist unten) habe wie könnte ich das ändern siehe Makro dazu?
Private Sub Workbook_Open()
'Zugriffsprotokoll (Wer hat wann verwendet)
Dim LoLetzte As Long
With Worksheets("Zugriff")
LoLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, _
Rows.Count) + 1
.Cells(LoLetzte, 1) = Environ("username")
.Cells(LoLetzte, 2) = Now
End With
ActiveWorkbook.Save
End Sub
Für eure Hilfe im Voraus besten Dank
MaBlu