Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum letzte Änderung

Datum letzte Änderung
09.10.2003 13:59:38
Werner
Hallo Spezialisten,
Folgende Frage und Bitte:
Ich habe eine Datei bestehend aus 14 Tabellenblättern.
Ich habe 3 Benutzer die Daten in diese DAtei eintragen.
Ich möchte jetzt auf einem Tabellenblatt vorgeben:
1.Benutzer Spalte Zelle A1 und dann automatisch in Zelle B1 das letzte Bearbeitungsdatum einträgt.
2.Benutzer Zelle A2 usw...
Ich bin ratlos...
Danke für eure Aufmerksamkeit
Gruß
Werner

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

Betreff
Datum
Anwender
Anzeige
AW: Datum letzte Änderung
09.10.2003 14:06:44
Werner
Nachtrag:
jeder Benutzer hat seinen eigenen Bereich.
So nach dem Motto:
Wenn Änderung im Bereich ... dann Datum in Zelle so und so.
AW: Datum letzte Änderung
09.10.2003 14:08:50
Willie
Das Makro kannst du in Workbookopen eintragen und die Namen prüfen lassen!
Gruß
Willie


Sub Namenvergenen()
Name = Application.UserName
If Name = "Hugo Müller" Then
Cells(1, 1).Value = Name
Cells(1, 2).Value = Date & " " & Time
ElseIf Name = "Max Mustermann" Then
Cells(2, 1).Value = Name
Cells(2, 2).Value = Date & " " & Time
ElseIf Name = "Peter Lustig" Then
Cells(3, 1).Value = Name
Cells(3, 2).Value = Date & " " & Time
End If
End Sub

Anzeige
AW: Datum letzte Änderung
09.10.2003 14:23:44
Werner
Hallo Willi,
danke ert Mal.
Da gibt esnur ein Problem:
Wir haben ein Intra-Net und außerdem ist Excel auf die Firma liszensiert.
Also mit Benutzername geht es nicht.
Wahrscheinlich nicht lösbar.
MfG
Werner
AW: Datum letzte Änderung
09.10.2003 14:34:45
xXx
Hallo,
leg dir eine Tabelle "Logbuch" mit folgenden Überschriften an: User; Datum, Sheet; Zelle
Diesen Code in ein Modul:
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)
UserName = Left(UserName, InStr(UserName, Chr(0)) - 1)
End Function


Diesen Code in jede zu überwachende Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intLZ, Sh As Worksheet
Set Sh = ActiveSheet
With Sheets("Logbuch")
intLZ = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(intLZ, 1) = UserName
.Cells(intLZ, 2) = Date
.Cells(intLZ, 3) = Sh.Name
.Cells(intLZ, 4) = Target.Address
End With
End Sub

Es wird der Netzwerk-Anmeldename, das Datum, das geänderte Blatt und die geänderte Zelle eingetragen. "Logbuch" im Editor evtl auf xlsheetveryhidden setzen und den Code schützen.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Anzeige
AW: Datum letzte Änderung
09.10.2003 14:49:01
Werner
Hallo Udo,
das klappt prima.
Vielen Dank

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige