Bei Doppelklick Kommentar löschen
Holzmann
Ich habe unteres Makro (Danke an Dirk aus Dubai)
Wo mir bei Doppelklick ein Kommentar eingefügt wird.
Nur ist leider dabei das Kontextmenü mit rechter Maustaste "Kommentar löschen" nicht mehr vorhanden.
Wenn ich den Blattschutz aufhebe dann ist "Kommentar löschen" wieder vorhanden.
Gibt es eine Möglichkeit dieses "Kommentar löschen"immer aktiv zu halten?
Oder wenn schon ein Kommentar eingefügt wurde,und abermals Doppelklick dann InputBox "Kommentar löschen"?
Hätte bitte jemand eine Hilfe anzubieten?
Gruß
Heinz
Option Explicit
Function B_DClick(sht As String, MyTarget As Range, MyCancel As Boolean)
Dim tmp As String
Debug.Print UserSel
If FManuell = True And MyTarget.Column vbYes Then
If MyTarget.Column 2 And MyTarget.Row "" Then
'wenn Zelle keinen Kommentar hat, dann einen hinzufügen
'sonst nur Kommentar ändern
If ok Then
MyTarget.AddComment
End If
MyTarget.Comment.Visible = False
MyTarget.Comment.Text Text:=eing
End If
For Each coKommentar In Sheets(sht).Comments
coKommentar.Shape.DrawingObject.Font.Size = 10 '12
coKommentar.Shape.OLEFormat.Object.AutoSize = True
Next coKommentar
End If
Set RaBereich = Nothing
Set coKommentar = Nothing
.Protect Password:="vetro", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Application.ScreenUpdating = True
End With
End Function
Anzeige