Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Benutzer dokumenieren

Benutzer dokumenieren
petra
Hallo,
ich habe folgenden Code:

Sub Auto_Open()
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
ThisWorkbook.Save
End Sub

Ich moechte, dass der Benutzer sofort dokumentiert wird, sobald die Datei aufgerufen wird.
Was muss ich tun?
Gruss
Petra

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

Betreff
Benutzer
Anzeige
AW: Benutzer dokumenieren
Bert
Option Explicit

Private Sub Workbook_Open()
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
ThisWorkbook.Save
End Sub

Bert
AW: Benutzer dokumenieren
Petra
Danke, Bert
Es funktioniert!
Gruss
Petra
AW: Benutzer dokumenieren
Bert
Ich weiß!
Bert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige