Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benutzername in protokolldatei einfügen

Forumthread: 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

Anzeige

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

Anzeige
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

Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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