Autokommentar
13.11.2021 21:03:15
Marcus
habe folgenden Wunsch.
Wenn in der Spalte B ein Text eingegeben wird, soll automatisch Kommentar eingefügt werden, der Datum Uhrzeit und User beinhaltet:
so einen Code habe ich gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B15:B10000")) Is Nothing And Target.Count = 1 Then
With Target
If .Comment Is Nothing Then
.AddComment.Text Application.UserName & Chr(10) & Date & " " & Time
Else
.Comment.Text .Comment.Text & Chr(10) _
& Application.UserName & Chr(10) & Date & " " & Time
End If
End With
End If
End Sub
jetzt wäre es noch super wenn ich zu diesen Informationen noch einen Freitext hinzufügen könnte:Hierfür habe ich auch einen Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse As String
If Not Intersect(Target, Range("A1:IV65536")) Is Nothing And Target.Value = "A" Then
adresse = Target.Address
Range(adresse).AddComment
Range(adresse).Comment.Visible = True
Range(adresse).Comment.Shape.Select
Range(adresse).Comment.Text Text:="Eingabe:" & Chr(10) & ""
End If
End Sub
Frage 1bei diesem ist nur das Problem das das Kommentarfeld offen bleibt - kann man das automatisch schließen lassen - z.b wenn ich in eine andere Spalte klicke?
Frage 2
kann man beide kombinieren? mit der Funktion nach Verlassen schließt sich der Kommentar
Danke im Voraus
Marcus