Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 08:21:40
24.10.2025 18:10:41
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zugriff auf Datei notieren

Zugriff auf Datei notieren
08.11.2019 13:53:31
MaBlu
Hallo
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf Datei notieren
08.11.2019 14:11:17
Nepumuk
Hallo,
einfach so:
Private Sub Workbook_Open()
    With Worksheets("Zugriff")
        Call .Rows(2).Insert
        .Cells(2, 1).Resize(1, 2) = Array(Environ("username"), Now)
    End With
    Save
End Sub


Gruß
Nepumuk
Anzeige
AW: Zugriff auf Datei notieren
08.11.2019 14:13:20
fcs
Hallo MaBlu,
"einfach" Liste absteigend nach Datum/Zeit in Spalte B sortieren, nachdem der User eingetragen wurde.
Wenn du keine Spaltentitel hast, dann musst du die Sortierung anpassen.
Hinweis:
Vorsicht - du erfasst hier personenbezogene Daten (Datenschutzverordnung/Betriebsrat)
LG
Franz
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
If LoLetzte > 2 Then
With .Range(.Cells(1, 1), .Cells(LoLetzte, 2)) 'Spalten A und B
.Sort Key1:=.Range("B1"), order1:=xlDescending, Header:=xlYes
End With
End If
End With
ActiveWorkbook.Save
End Sub

Anzeige
AW: Zugriff auf Datei notieren "gelöst"
08.11.2019 15:22:15
MaBlu
Hallo super vielen Dank das klappt ausgezeichnet!
Auch für den Datenschutzhinweis.
Schönes Wochenende
Gruss MaBlu
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige