Office: Datum beim öffnen von Exel einfügen

Hallo
Ich möchte (Exel 2000) beim Starten einer Datei das aktuelle Datum automatisch in der nächsten Zeile Stehen haben, aber das datum vom letzten Zugriff auf diese Datei sol in der Zeile darüber naürlich erhaltenbleiben.
Wie kann ich dieses Problem lösen?
Mit der Funkion " HEUTE ()" werden ja alle daten aktuallisiert, und mit Makros habe ich nicht sehr viel Erfahrung.

Danke schon mal im vorraus!

Mfg.:puck

 

Hallo!

Öffne mit Alt+F11 den VBA-Editor und doppelklicke auf "DieseArbeitsmappe".
Füge ins Codefenster rechts diesen Code ein:

Code:

Private Sub Workbook_Open()
Sheets("Tabelle1").Columns(1).SpecialCells(xlCellTypeLastCell).Offset(1, 0) = Date
End Sub

Das Datum wird im Blatt "Tabelle1" direkt unter die letzte benutzte Zelle in Spalte A (Columns(1)) eingetragen.

 

Hallo
Danke für Deine Hilfe Dieses Makro funktioniert ganz gut!
Hat nur einen kleinen Hacken!
Das Datum fügt sich immer in die Letzte beschriebene Spalte ein (In meinem Fall ist das Spalte F). Ist es irgendwie möglich das Datum in Spalte A zu bringen?

Mfg.:Puck

 

Oops, mein Fehler...

Code:

Private Sub Workbook_Open()
Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0) = Date
End Sub

 

Hallo
Danke für Deine schnelle Hilfe!
Das Makro funktioniert super!

Mfg.: Puck

 

Kann man auf diese Weise auch in der daneben liegenden Spalte den Aktuellen Benutzer erfassen?

A B
20.10.07 User123
21.10.07 UserABC
22.10.07 User123

Was könnte als Datenquelle dienen? Der in Office bei der Installation hinterlegte Benutzer bzw dessen Initialen? Oder der aktuelle Anmeldename von Windows?

 

Ich glaube, den aktuellen Windows-Benutzer liest man hiermit aus:

Code:

Application.UserName

Musst du mal ausprobieren.

 

Das war - natürlich wie immer - die richtige Antwort! :-D

Danke!