Kommentar per MsgBox / Abbruch
26.03.2020 09:02:54
Sven
folgenden Code habe ich mir zusammen gebastelt. Wenn ich in der MsgBox auf Abbrechen klicke, dann schreibt er das aktuelle Datum in die Zelle sowie in den Kommentar.
Frage: wie muss ich den Code umschreiben, dass er tatsächlich abbricht?
Danke im voraus!
Sub Kommentar()
Dim strComment As String
With ActiveCell
If .Comment Is Nothing Then
strComment = InputBox("Please add your comment.", "History")
.AddComment
With .Comment
.Text Text:=Date & " " & strComment
.Shape.TextFrame.AutoSize = True
ActiveCell = Date & " " & strComment
End With
Else
strComment = InputBox("Please add your commentn.", "Complete History")
.Comment.Text Text:=.Comment.Text & vbLf & Date & " " & strComment
ActiveCell = Date & " " & strComment
End If
End With
End Sub
Anzeige