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