Hallo zusammen,

nachdem ich mich mit dem Objekmodell von Project auseinandergesetzt habe, ist die Funktionalität schon gegeben, allerdings benötige ich noch ein paar Feinheiten.

Wenn ich eine Änderung vornehme und die mit Return bestätige, nimmt er die nächste Zeile zum eintragen, ähnliches auch, wenn ich mit Pfeil nach oben klicke, dass er dann diese Zeile zum Befüllen nimmt. Bei Mausklick passiert das auch. Kann man das irgendwie umgehen, evtl. mit einem anderen Object als ActiveCell?

Zusätzlich wäre es auch noch gut, wenn Fehler abgefangen werden, allerdings sthe ich hier mit dem "If Not x is Nothing" gerade auf dem Schlauch, bzw. passiert dann gar nichts, der Fehler kommt allerdings auch nicht mehr ;)

Wäre schön, wenn mir jemand weiterhelfen könnte, besten Dank im Voraus

David

Private Sub Project_Change(ByVal pj As Project)

    Dim projectFieldID1 As Long
    Dim projectFieldName1 As String
    Dim projectFieldID2 As Long
    Dim projectFieldName2 As String
    Dim curUserName As String
    Dim curDateAndTime As String
    
    curUserName = Application.userName
    curDateAndTime = Now
                    
    projectFieldID1 = FieldNameToFieldConstant("Text1", pjProject)
    projectFieldID2 = FieldNameToFieldConstant("Text2", pjProject)

    ActiveCell.Task.SetField FieldID:=projectFieldID1, Value:=curDateAndTime
    ActiveCell.Task.SetField FieldID:=projectFieldID2, Value:=curUserName
          
End Sub