Benutzer der Datei schreiben in Blatt...VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_Open() With Sheets("Ausgeblendet") With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) .Value = Environ("USERNAME") .Offset(0, 1) = Now End With End With End Sub

Hallo Sepp,
1. Funktioniert prima
2. habe es in mein Schließen VBA eingebaut
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic 'Schaltet beim schliessen auf automatic
With Sheets("Chronologie")
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = Environ("USERNAME")
.Offset(0, 1) = Now
End With
End With
3. Stand jetzt:
beim SCHLIEßEN wird in A der Benutzername und in B Datum und Uhrzeit vom Schließen eingetragen.
Wäre es möglich, dass in C in der gleichen Zeile die ÖFFNEN Uhrzeit eingetragen wird?
So könnte man schön erkennen, wie lange die Datei geöffnet war.
Dieser Wunsch ist allerdings absolutes Wunschdenken.
Selbst so bin ich sehr zufrieden.
Kleines Wunschbeispiel ( was dank deinem Code in A und B prima läuft):
Benutzername geschlossen Datum/ Uhrzeit
wimarcy 02.02.2012 13:56 hier sollte stehen wann geöffnet
wimarcy 03.02.2012 08:42
wimarcy 03.02.2012 08:53
wimarcy 03.02.2012 08:55
wimarcy 03.02.2012 08:59
wimarcy 03.02.2012 09:28
Gruß Marcy

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Calculation = xlCalculationAutomatic 'Schaltet beim schliessen auf automatic With Sheets("Chronologie") .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 2) = Now End With End Sub Private Sub Workbook_Open() With Sheets("Chronologie") With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) .Value = Environ("USERNAME") .Offset(0, 1) = Now End With End With End Sub

Beliebteste Forumthreads (12 Monate)

Benutzer der Datei schreiben in Blatt...VBA

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benutzer der Datei schreiben in Blatt...VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread