Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
140to144
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benutzername in protokolldatei einfügen

benutzername in protokolldatei einfügen
26.07.2002 09:46:35
chris
Hallo zusammen!

wie kann ich den Benutznamen des NT oder WIN200 User herausfiltern und in eine Protokolldatei oder Protokolltabelle einfügen?

Habe folgenden VBA-Code:

Dim intRow&
intRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End
(xlUp).Row + 1
Worksheets("Tabelle1").Cells(intRow, 1) = Date
Worksheets("Tabelle1").Cells(intRow, 2) = Time
Worksheets("Tabelle1").Cells(intRow, 3) = "Dateiname"
Worksheets("Tabelle1").Cells(intRow, 4) = ???????

Vielleicht kann mir ja jemand weiterhelfen. Danke im Voraus

chris

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: benutzername in protokolldatei einfügen
26.07.2002 10:20:18
Heinz
Hallo Chris,

Das gibt den Dateinamen

Worksheets("Tabelle1").Cells(intRow, 3) = ThisWorkbook.Name
mit =ThisWorkbook.FullName wird auch der Pfad mit in die Zelle geschrieben.

Daran knabbere ich noch:
Worksheets("Tabelle1").Cells(intRow, 4) = "User"

Re: benutzername in protokolldatei einfügen
26.07.2002 10:31:30
chris
Hallo heinz!

Danke, wäre spitze wenn das mit dem user auch noch klappen würde!!

sg chris

Re: benutzername in protokolldatei einfügen
26.07.2002 10:49:43
Heinz
Hallo Chris,
nun vollständig:

ub Dateiinfo()


intRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Tabelle1").Cells(intRow, 1) = Date
Worksheets("Tabelle1").Cells(intRow, 2) = Time
Worksheets("Tabelle1").Cells(intRow, 3) = ThisWorkbook.Name
Worksheets("Tabelle1").Cells(intRow, 4).Select
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties(3).Value


End Sub

Gruß Heinz

Anzeige
Re: benutzername in protokolldatei einfügen
26.07.2002 11:49:53
chris
vielen dank!
Re: benutzername in protokolldatei einfügen
26.07.2002 12:09:53
Heinz
Hallo Chris,

es geht auch:

Sub Dateiinfo()

Dim intRow&
intRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Tabelle1").Cells(intRow, 1) = Date
Worksheets("Tabelle1").Cells(intRow, 2) = Time
Worksheets("Tabelle1").Cells(intRow, 3) = ThisWorkbook.Name
Worksheets("Tabelle1").Cells(intRow, 4) = Application.UserName
End Sub

Re: benutzername in protokolldatei einfügen
26.07.2002 12:33:38
Udo RiHü
Hallo,
ich glaube, das hilft dir beim User (gefunden hier im Forumsarchiv).

Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Function UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen)
End Function

Gruss Udo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige