Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.....

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

300 Forumthreads zu ähnlichen Themen

Name aller Tabellenblätter in Listbox auflisten
Andre´

Hallo alle zusammen,
1.) gibt es eine Möglichkeit, alle Namen der Tabellenblätter der aktiven Datei in einer Listbox aufzulisten und mit einem Link zu versehen, wo auf Click das Tabellenblatt aktiv wird.
2.) Ist es auch möglich, die aufgelisteten Tabellenblattnamen umzubenennen
Viel...
05.07.2012 09:56:03
Thread-ID: 1269977
10 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
VBA auf alle Tabellenblätter anwenden
Christoph

Hallo zusammen,
ich nutze aktuell folgenden Code um Leerzeichen per VBA zu löschen. Nun würde ich diesen gerne auf alle Tabellenblätter in der Arbeitsmappe anwenden - kann mir da jemand helfen.
Danke und Gruß Sub LeErsetzen() Dim rngZelle As Range Dim rngBereich As Range Dim wks As Work...
19.08.2015 15:32:08
Thread-ID: 1443155
5 Beiträge
Anzeige
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
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
Liste der Functions und Subs erstellen
Friederico

Hallo liebe VBAler,
beschäftige mich gerade mit der VBE in Excel. Kennt jemand eine Möglichkeit, wie ich an eine Auflistung aller Subs/Functions des aktuellen VBA-Projects kommen kann, ohne über die Find-Methode zu klettern?
Ich habe bisher hierzu keine Lösung gefunden; immer muss man...
28.05.2006 18:58:14
Thread-ID: 768090
4 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
3
4
4
3
2
5
8
3
6
5
2
1
20
1
6
10
5
3
6
2
1
10
3
4