Ich habe mit Hilfe des Forums folgenden Code zum Löschen von Kommentaren mit einer Schaltfläche:
Private Sub Kommentar_löschen_Click()
If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
ActiveCell.Comment.Delete
End If
End Sub
Wenn jemand in einer Zelle steht, die gar keinen Kommentar enthält, und "Kommentar löschen" wählt folgt die Fehlermeldung:
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt
Wie kann ich in diesen Fällen eine Box anzeigen mit "In diesem Feld ist kein Kommentar zum löschen" o.ä.
Vielen Dank und Gruss
Ben