Hallo zusammen
ich möchte das Datum und den letzen nutzer name in einem Feld der Tabelle sicht bar machen ?
Kann mir da einer bitte helfen??
Vielen Dank
Klaus
ich kann auch eine Datei senden
Hallo Klaus,
bevor ich Dir einen Tip geben kann, musst Du mir mitteilen, welche Excel-Version von welchem Hersteler Du verwendest. Es gbt neben Microsoft noch OpenOffice und LibreOffice.
Viele Grüße,
BigBen
BigBen
danke das du dich gemeldet hast ich habe Office 2010
Danke Klaus
Da musst du mit Alt F11 in den VBA-editor gehen, dort ein Modul einfügen und folgenden Code einsetzen:
Option Explicit
Sub Name\_und\_Datum()
Dim NutzerName As String
Dim NutzungsDatum As Date
Dim NutzungsZeit As Date
NutzerName = Environ("UserName")
NutzungsDatum = Date
NutzungsZeit = Time
Sheets("Tabelle3").Cells(1, 1).Value = NutzerName
Sheets("Tabelle3").Cells(1, 2).Value = NutzungsDatum
Sheets("Tabelle3").Cells(1, 3).Value = NutzungsZeit
End Sub
Sub Auto\_open()
Call Name\_und\_Datum
End Sub
Sub Auto\_Close()
Call Name\_und\_Datum
End Sub
Du kannst den Aufruf auch in DieseArbeitsmappe setzen:
Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Name\_und\_Datum
End Sub
Private Sub Workbook\_Deactivate()
Call Name\_und\_Datum
End Sub
Private Sub Workbook\_Open()
Call Name\_und\_Datum
End Sub
Es ist eigentlich egal, ob Du über Auto_Open-Makro oder Workbook_Open-Eigenschaft von Dieser Arbeitsmappe gehst. Du musst Dich bloß für einen Aufruf entscheiden.
Je nach dem, ob beim Öffnen, beim Schließen oder beim Speichern der Eintrag erfolgen soll
Hallo Amtsschimmel,
ich möchte mich bei dir bedanken das du mir so geholfen hast
Viele Grüsse Klaus
Hallo Amtsschimmel,
ich habe ein Problem
er zeigt mir beim speichern das an
Sheets(„Tabelle3“).Cells(1, 1).Value = NutzerName in gelb
wollte ein Screenshot senden
aber geht nicht
vieleicht kanst du mir ja noch mal helfen
Vielen Dank
Klaus
Hast Du denn ein Blatt mit der Benamsung Tabelle3? sonst trage einen Namen deiner Tabelle ein oder füge die Tabelle3 ein
Hallo Amtsschimmel,
danke durch deine hilfe geht es jetzt
Klaus
Hast Du denn ein Blatt mit der Benamsung Tabelle3? sonst trage
einen Namen deiner Tabelle ein oder füge die Tabelle3 ein
Das geht nur mit einem VBA-Script. Damit kenne ich mich aber zuwenig aus. Sorry.
Gruß
Mike
Hallo Klaus,
Das kannst du mit der VBA-Funktion Environ (Anwendungsumgebung)machen.
Zum Beispiel soll der letzte Nutzer in A1 und das Datum in A2 stehen.
Dazu ist es sinnvoll eine Ereignisprozedur zu schreiben. Sie muss im VBA-Editor bei „Diese Arbeitsmappe“ stehen.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
strUserName = Environ(„UserName“)
Range(„A1“)=strUserName
Range(„A2“)=Date
End Sub
D.h. vor dem Schließen der Datei soll in A1 der Username und in A2 das aktuelle Datum geschrieben werden. Beim nächsten Öffnen, kann man dann dies lesen.
Probier’s mal aus. Wenn’s nicht geht, schick mal 'ne Demodatei.
Jürgen
PS. Ich habe nur Excel 2007, ich glaube aber, da ist kein Unterschied zu 2010.
Hallo Klaus,
man kann den letzten Benutzername über die integrierte Tabelleneigenschaft „Author“ abfragen:
function LetzterBenutzername()
LetzterBenutzername = activeWorkbook.BuiltinDocumentProperties(„author“)
end Function
Die Funktion muss in einem VBA-Modul eingefügt werden. In einer beliebigen Tabellenzelle kann auf diese Funktion zugegriffen werden.
Viele Grüße,
BigBen
Hallo Klaus,
dieses kleine programm in codebereich „DieseArbeitsmappe“ einfügen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.ReadOnly Then
Sheet(1).Cells(1, 1) = Environ(„Username“) & " - " & Date & " - " & Time
ThisWorkbook.Save
End If
End Sub
Tabelle und Zelle anpassen!
Hoffe das du dir das so vorgestellt hast, sonst bitte melden…
Andreas