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
pappnasen 
xtom „excel liste mit automatischem datum neben dem eintrag“
Strg + . = Steuerung + Punkt
mawe2 xtom „excel liste mit automatischem datum neben dem eintrag“
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
xtom mawe2 „Diesen VBA-Code der jeweiligen Tabelle hinzufügen: Private Sub Worksheet_Change ByVal Target As Range On Error GoTo xErr ...“
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
mawe2 xtom „moin und merci, kein blassen schimmer mehr wie das ging..... hab das letzte mal was mit makros und vba zu gesicht bekommen ...“
In welcher Excel-Version soll die Projektverwaltung erstellt werden?
xtom mawe2 „In welcher Excel-Version soll die Projektverwaltung erstellt werden?“
excel 2007....
xtom Nachtrag zu: „excel 2007....“
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
mawe2 xtom „habs geschafft, funktioniert, allerdings mit folgendem code gefunden im netz Private Sub Worksheet_Change ByVal Target As ...“
If Intersect(Target, Range("A1:A1000")) Is Nothing Then Exit Sub
Was bewirkt diese Zeile???
Alpha13 mawe2 „Was bewirkt diese Zeile???“
