problemchen mit kommentarfeldern
13.10.2004 12:14:16
tappenbeck
ich habe ein kleines tool geschrieben welche in der aktuellen zelle das kommentarfeld mit einer textmeldung updatet.
code ist unten angehängt !!
nun kommt es zu der fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt !" in der zeile
If Len(target.Comment.Text) > 0 Then
... das ist immer dann, wenn kein kommentar vorhanden ist ! dann ist der fehler logisch !!! wie kann ich den abfangen ?
vielen dank im voraus.
gruß Jan :-)
------------------ CODE --------------------------
Public
Sub kommentchange2cell(target As Range)
Dim Buffer As String * 100
Dim BuffLen As Long
Dim Username As String
On Error GoTo errorhandler
BuffLen = 100
GetUserName Buffer, BuffLen
Username = Left(Buffer, BuffLen - 1)
If Len(target.Comment.Text) > 0 Then
target.Comment.Visible = False
target.Comment.Text Text:="geändert am: " & Chr(10) & _
Date & " - " & Time & Chr(10) & _
"von " & Username
End If
Exit Sub
errorhandler:
If target.Rows.Count = 1 And target.Columns.Count = 1 Then
target.AddComment
target.Comment.Visible = False
target.Comment.Text Text:="geändert am: " & Chr(10) & _
ADate & " - " & Time & Chr(10) & _
"von " & Username
End If
End Sub