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
|