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

Liste der Benutzer erstellen

Forumthread: Liste der Benutzer erstellen

Liste der Benutzer erstellen
10.05.2007 12:04:09
wilfied.jansen@freenet.de
Ich habe eine Reihe von Dokumenten die über das Netzwerk von verschiedenen Benutzern verwendet werden.
Ich möchte gerne in einem separaten Tabellenblatt zumindest eine Benutzerhistorie erstellen. Also alle Namen die das Dokument geändert und gespeichert haben.
Schön wäre natürlich ein komplettes Logfile z.B. wie in Word " Eingabe xyz in A39".
Ist dies möglich?
greeetz
Will

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste der Benutzer erstellen
10.05.2007 12:35:23
Reinhard
Hallo Will,
vielleicht versuchst Du mal das folgende:
Du wählst irgenein Ereignis (hier: vor dem Sichern), was den derzeit angemeldeten User in das Blatt "Zugriff" in Spalte "B" einträgt. In der Spalte daneben die Zeitangabe des Zugriffs.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
uz = Sheets("Zugriff").Columns("B:B").End(xlUp).Row
Cells(uz + 1, 2).Value = UserID
Cells(uz + 1, 3).Value = Format(Now, "dd.mm.yy hh:mm")
End Sub


Auf Modulebene musst Du die Deklaration und die Funktion eintragen:
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, _
lpnLength As Long) As Long
Function UserID() As String
Dim lpUserName As String
lpUserName = Space$(255)
lpName = Space$(0)
Status = WNetGetUser(lpName, lpUserName, 254)
UserID = Left(lpUserName, 7) ' Die 7 ist eine Stellenangabe, die du verändern kannst.
End Function


Gruß Reinhard

Anzeige
AW: Liste der Benutzer erstellen
10.05.2007 13:40:00
wilfied.jansen@freenet.de
ich bin mir sicher, ob ich Deklaration und Funktion an der richtigen Stelle eingetragen habe.
Auf jeden Fall erhalte ich einen Fehler beim Kompilieren: Konstanten, Zeichenfolgen fester Länge, benutzerdefinierte Datenfelder und Declare Anweisungen sind als Public- Elemente von Objektmodulen nicht zugelassen.....

Anzeige
AW: Liste der Benutzer erstellen
10.05.2007 14:43:00
Reinhard
Hallo Wil,
ich hab mal ein Beispiel als Datei eingefügt. Ich hoffe das hilft weiter.
https://www.herber.de/bbs/user/42401.xls
Gruß Reinhard

AW: Liste der Benutzer erstellen
11.05.2007 07:35:00
wilfied.jansen@freenet.de
ihr seid die Besten !!!
nur (sorry :-)), wie bringe ich den Cursor dazu eine Zeile nach unten zu springen sobald der erste Eintrag erfolgt ist ? Im Beispiel überschreibt das Makro beim zweiten speichern den ersten Namen.
greeetz
Will

Anzeige
AW: Liste der Benutzer erstellen
11.05.2007 10:08:00
Reinhard
Hallo Wil,
ersetz doch in Zeile 2 "Column ..." durch "range(...." und schon sollte es funktionieren

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
uz = Sheets("Zugriff").Range("B65000").End(xlUp).Row
Cells(uz + 1, 2).Value = UserID
Cells(uz + 1, 3).Value = Format(Now, "dd.mm.yy hh:mm")
End Sub


gruß Reinhard

Anzeige
;

Forumthreads zu verwandten Themen

VBA für alle Tabellenblätter
Bernd

Hallo an Alle,
ich bitte um Eure Hilfe. Ich habe ein Makro, das mir in einem Zellbereich bei einem Doppelklick ein Haken oder ein x schreibt. Dies funktioniert in dem Tabellenblatt, in dem das Makro gespeichert ist. Ich möchte aber die Dateien nicht in .xslm sondern in .xlsx, also ohne Makr...
22.06.2014 22:03:57
Thread-ID: 1366938
4 Beiträge
Anzeige
Peer VBA alle Formeln einer Mappe auflisten
Dieter(Drummer)
Guten Tag, Spezialisten,
gibt es ein Makro, dass alle Formeln (nur die Formeln!), der gesamten Mappe, in einer neuen Tabelle auflistet? Es könne durchaus "> 600.000" Formeln (inkl. auch mal ein Pfadname etc.) sein. Der Zweck ist der Vergleich, ob in den einzelnen Tabellen der Mappe, die alle gl...
07.02.2015 18:11:16
Thread-ID: 1407930
5 Beiträge
Auflisten aller Tabellenblätter
stef26

Hallo Zusammen,
ich hab da mal eine Frage, bei der ich kurz eure Unterstützung bräuchte.
Ich lasse mir alle Tabellenblätter einer Arbeitsmappe auflisten.
Mit einer If Abfrage grenze ich die Tabellenblätter aus, die nicht mit aufgeführt werden sollen.
Nun möchte ich noch alle die...
08.03.2016 08:59:35
Thread-ID: 1480557
4 Beiträge
VBA-Skript auf alle Tabellenblätter beziehen
Denis

Hallo liebe Community,
ich hoffe, ihr könnt mir bei folgendem Problem helfen.
Ich habe Excel-Dateien, in denen ein über VBA programmiertes Makro geschrieben wurde (nicht von mir).
Es geht um einen Speiseplan, der aus unserem WaWi-System exportiert wird. Wenn die Datei geöffnet wird,...
24.03.2017 15:33:04
Thread-ID: 1549344
3 Beiträge
Überstunden mit vba zählen alle Tabellenblätter
Jannick

Hallo Liebe Excel Profis,
Zu folgendem Projekt fehlt mir leider etwas die Erfahrung.
Ich konnte mir schon viel zusammenbasteln und auch schon Erfolge in div. Projekten verzeichnen. Allerdings komme ich hier nun nicht mehr weiter.
Hier meine Bsp. Datei
https://www.herber.de/bbs/u...
30.05.2019 12:58:57
Thread-ID: 1695409
6 Beiträge
Anzeige
Listenfelder erstellen
Daniel

Hallo zusammen,
ich würde gerne wissen (am besten mit Beispiel), wie ich ein Listenfeld erstellen kann; die Hilfe hatte ich konsultiert, aber das ist mir zu wenig erläutert; oder kurz: die Hilfe ist unnütz!!
Um Hilfe von Experten wäre ich sehr erfreut, da die Zeit sehr knapp ist!
Danke...
29.06.2004 15:20:34
Thread-ID: 447708
9 Beiträge
Erstellen einer Orderliste - Formatierung
big-tobi

Hallo zusammen!
Ich muss einen Ordersheet erstellen, sprich:
Der Kunde ordert mehrere Artikel, diese werden in dieses Excel-File eingegeben und ausgedruckt.
Nun weiß ich nicht genau, wie ich es am besten aufbauen soll.
Es sollte im Resultat wie folgt aussehen:
Querformat
...
20.04.2008 13:55:55
Thread-ID: 970571
7 Beiträge
VBA in allen Tabellenblätter
Jan
Guten Morgen,
ich habe diesen Code und möchte das er in ALLE Tabellenblätter "greift". Ich habe ihn in Arbeitsmappe getan aber leider geht es nicht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target = Environ("Username"...
08.03.2023 08:58:22
Thread-ID: 1923206
3 Beiträge
Kontoauszüge erstellen auf der Basis von einer anderen Liste
Patrick
Hallo,

ich habe folgenden Sachverhalt: ich habe eine Quell-Exceldatei in der die nötigen daten stehen (Name, Betrag, verschiedenen Daten (Mehrzahl von Datum) etc.)
Ich möchte auf Basis dieser Daten ein Kontoauszug in Excel erstellen, die dann verschiedene erhalten.

Wie stelle i...
04.08.2023 12:35:32
Thread-ID: 1940513
2 Beiträge
Anzeige
Liste aus Liste erstellen
Ernst

Hallo Vba Profis !
Ich habe folgende Problemstellung und zwar meine Exelliste die ich Auslaufmanagement benannt habe und unter folgendem Link abrufbar ist: https://www.herber.de/bbs/user/54880.zip
besteht aus drei Tabellenblättern (im Tabellenblatt Auslaufmanagement wird eine Nummer ei...
25.08.2008 14:02:00
Thread-ID: 1004448
21 Beiträge
Auswahlliste erstellen
Manuel

Hallo!
Ich möchte gerne eine Auswahlliste mit EXCEL (verstehe nix von VBA...) erstellen, wo man meinetwegen verschiedene Ausstattungen von Kfz anklicken kann, die dann später ausgedruckt werden, ohne dass die nichtangeklickten mit ausgedruckt werden... Geht sowas?
Irgendwie alle Punkte...
17.02.2009 13:30:00
Thread-ID: 1051459
2 Beiträge
Blatt gegen neues Blatt tauschen, Formeln defekt
Kasimir

Hallo Leute,
eventuell wisst Ihr wie ich mein Problem lösen kann. Ich habe eine Datei mit vielen Formeln, die sich auch auf andere Tabellenblätter der Datei beziehen. Nun muss ich ein Tabellenblatt gegen ein anderes austauschen. Mein Problem ist nun, wenn ich das eine Blatt lösche, werden i...
04.03.2009 08:31:47
Thread-ID: 1056166
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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