Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1632to1636
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
Inhaltsverzeichnis

Benutzer geändert am : anzeigen lassen

Benutzer geändert am : anzeigen lassen
18.07.2018 07:28:30
weltraumaffe
Hallo Zusammen,
bin Excel Neuling und habe die Aufgabe bekommen eine tolle Liste zu erstellen mit Anlagen. Alles kein Problem, bis ich die Funktion eingebaut haben wollte. Datum letzte Änderung : ; Änderung von :
habe das auch durch Copy und Paste von einem Makro hinbekommen. Problem ist jetzt nur, wenn ich die Excel Datei einem Kollegen schicke und er diese öffnet um anschließend eine Zelle zu verändern, erscheint weiterhin mein Name und nicht der Name des Kollegen.
Hier das verwendete Makro :
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim r As Range
'->Für jede geänderte Zelle
If Target.Columns.Count > 1 Or Target.Rows.Count > 120 Then Exit Sub
For Each r In Target
Call AenderungskennungAlsKommentar(r)
Next
Set r = Nothing
End Sub

'********************************************************

Private Function AenderungskennungAlsKommentar(r As Range)
'*** für die geänderte Zelle wird im Kommentar
'*** Benutzerkennung und Änderungszeitpunkt
'*** eingetragen
'*** Ist kein Kommentar vorhanden, wird ein neuer angelegt
Dim s As String, s_user As String
'->ggf. vorhandenen Kommentar lesen
On Error Resume Next
s = r.Comment.Text
If Err.Number  0 Then
Err.Clear
'->neuen Kommentar anlegen
r.AddComment
r.Comment.Visible = False
s = ""
End If
On Error GoTo 0
'->Wenn Kommentar vorhanden, Zeilenumbruch anfügen
If s  "" Then s = s & vbLf
'->Letzten Benutzer feststellen
s_user = ActiveWorkbook.BuiltinDocumentProperties(7)
'->Datum und Benutzer an Kommentar anfügen
s = s & Format(Now(), "yyyymmdd_hhnn: ") & s_user
'->Kommentar eintragen
r.Comment.Text s
End Function

Bitte um Aufklärung was ich in den Code integrieren muss, damit der jeweilige Benutzer sichtbar wird.
Vielen Dank vorab.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Benutzer geändert am : anzeigen lassen
18.07.2018 07:38:59
Bernd
Servus weltraumaffe,
anstelle von
 s_user = ActiveWorkbook.BuiltinDocumentProperties(7)

teste mal
 s_user = Application.UserName
Grüße, Bernd
AW: Benutzer geändert am : anzeigen lassen
18.07.2018 08:46:11
weltraumaffe
Herzlichen Dank, hat mir weitergeholfen :)
AW: Benutzer geändert am : anzeigen lassen
18.07.2018 09:02:20
Hajo_Zi
Du möchtest also nur den eingetragenen Nutzer bei Excel haben und nicht den angemeldeten Namen im Netz.
Gruß Hajo
AW: Benutzer geändert am : anzeigen lassen
18.07.2018 07:39:41
Hajo_Zi
s_user = Environ("Username")

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige