Office - Word, Excel und Co. 9.438 Themen, 37.962 Beiträge

excel liste mit automatischem datum neben dem eintrag

xtom / 8 Antworten / Baumansicht Nickles

moinsen,

ich möchte eine liste erstellen mit klein-projekten.....

in den zeilen 1-x möchte ich projekte eintragen, ständig kommen welche hinzu....

damit ich später nachvollziehen kann wann das projekt angedacht/eingetragen wurde, hätte ich gerne daß in der spalte daneben beim eintragen eines neuen projekts automatisch das datum der erstellung mit eingetragen wird, bin aber mal wieder zu dappisch, find nich wie....

wer weiß was?

gruß

tom

bei Antwort benachrichtigen
pappnasen xtom

„excel liste mit automatischem datum neben dem eintrag“

Optionen

Strg + .  = Steuerung + Punkt

bei Antwort benachrichtigen
mawe2 xtom

„excel liste mit automatischem datum neben dem eintrag“

Optionen

Diesen VBA-Code der jeweiligen Tabelle hinzufügen:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo xErr
    If Target.Column = 1 Then
        If Target.Value <> "" Then Target.Offset(0, 1).Value = Date
    End If
xErr:
End Sub

Bei Eingabe des Inhalts in eine Zelle der ersten Spalte wird in die rechte Nachbarzelle das aktuelle Datum eingetragen.

Die Datei muss als xlsm-Datei gespeichert werden.

Gruß, mawe2

"When bankers get together for dinner, they discuss Art. When artists get together for dinner, they discuss Money" (Oscar Wilde)
bei Antwort benachrichtigen
xtom mawe2

„Diesen VBA-Code der jeweiligen Tabelle hinzufügen: Private Sub Worksheet_Change ByVal Target As Range On Error GoTo xErr ...“

Optionen

moin und merci,

kein blassen schimmer mehr wie das ging.....

hab das letzte mal was mit makros und vba zu gesicht bekommen (und da auch nicht viel....), da war office xp frisch am start.....

gruß

tom

bei Antwort benachrichtigen
mawe2 xtom

„moin und merci, kein blassen schimmer mehr wie das ging..... hab das letzte mal was mit makros und vba zu gesicht bekommen ...“

Optionen

In welcher Excel-Version soll die Projektverwaltung erstellt werden?

"When bankers get together for dinner, they discuss Art. When artists get together for dinner, they discuss Money" (Oscar Wilde)
bei Antwort benachrichtigen
xtom mawe2

„In welcher Excel-Version soll die Projektverwaltung erstellt werden?“

Optionen

excel 2007....

bei Antwort benachrichtigen
xtom

Nachtrag zu: „excel 2007....“

Optionen

habs geschafft, funktioniert, allerdings mit folgendem code (gefunden im netz)

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
    If Intersect(Target, Range("A1:A1000")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
        Else:
        Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy"))
    End If
End Sub

bei Antwort benachrichtigen
mawe2 xtom

„habs geschafft, funktioniert, allerdings mit folgendem code gefunden im netz Private Sub Worksheet_Change ByVal Target As ...“

Optionen
If Intersect(Target, Range("A1:A1000")) Is Nothing Then Exit Sub

Was bewirkt diese Zeile???

"When bankers get together for dinner, they discuss Art. When artists get together for dinner, they discuss Money" (Oscar Wilde)
bei Antwort benachrichtigen
Alpha13 mawe2

„Was bewirkt diese Zeile???“

Optionen
bei Antwort benachrichtigen