Das Archiv des Excel-Forums

Datum letzte Änderung

Bild

Betrifft: Datum letzte Änderung
von: Werner

Geschrieben am: 09.10.2003 13:59:38

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
Bild


Betrifft: AW: Datum letzte Änderung
von: Werner
Geschrieben am: 09.10.2003 14:06:44

Nachtrag:
jeder Benutzer hat seinen eigenen Bereich.
So nach dem Motto:
Wenn Änderung im Bereich ... dann Datum in Zelle so und so.


Bild


Betrifft: AW: Datum letzte Änderung
von: Willie
Geschrieben am: 09.10.2003 14:08:50

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



Bild


Betrifft: AW: Datum letzte Änderung
von: Werner
Geschrieben am: 09.10.2003 14:23:44

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


Bild


Betrifft: AW: Datum letzte Änderung
von: xXx
Geschrieben am: 09.10.2003 14:34:45

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!


Bild


Betrifft: AW: Datum letzte Änderung
von: Werner
Geschrieben am: 09.10.2003 14:49:01

Hallo Udo,
das klappt prima.
Vielen Dank


 Bild

Excel-Beispiele zum Thema " Datum letzte Änderung"

Letzte nichtleere Zelle ermitteln download Letzter Wert in Zeile download
Letztes Speicherdatum eintragen download Letzter Wert aus einem Bereich download
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Letzte Zelle mit Inhalt suchen download Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe download
Letzte Verknüpfung in einem Tabellenblatt löschen download Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen download
Den jeweils letzten Wert einer Zahlenreihe als Multiplikator download Laufzeit von Windows seit letzten Start ermitteln download
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download Artikelnummern suchen und jeweils letzte Fundstelle listen download
Mit ShortCut STRG+END zur tatsächlich letzten Zelle download Bestimmung der ersten und letzten Zelle eines Filters download
Nur die letzte Seite drucken download Die letzte Zeile des aktiven Blattes in andere Arbeitsmappe download
Alle Formate jenseits der letzten benutzten Zelle löschen download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Entfernen der letzten beiden Zeichen in Listenelementen download Ermittlung der jeweils letzten 5 Datensätze download
In jeder Zeile einer Textdatei 1. und letztes Zeichen entfernen download Zeile mit letzter Fundstelle an letzte Position der Liste download