Hallo,
ich möchte unter Excel 2010 per Makro erkennen, ob eine Zelle einen Kommentar enthält und wenn ja, den Text herauskopieren, anschließend den Kommentar löschen.
Mein Problem ist, die Zelle mit Kommentar zu erkennen.
Die Anweisung „if cells(zeile,spalte).comment=true“ funktioniert nicht.
Weiß jemand, wie die Abfrage formuliert wird?
Danke für Antworten
Gruß
Pauli
Mein Problem ist, die Zelle mit Kommentar zu erkennen.
Die Anweisung „if cells(zeile,spalte).comment=true“
funktioniert nicht.Weiß jemand, wie die Abfrage formuliert wird?
Hallo Pauli,
aber klar, Abfrage
Gruß
Reinhard
Hallo Reinhard,
herzlichen Dank für die Info. Auf die Idee wäre ich nicht gekommen.
Gruß
Pauli
Hallo Pauli,
du kannst z.B. sowas machen:
Sub commentTesten()
MsgBox hasComment(Cells(1, 1))
End Sub
Function hasComment(zelle As Range) As Boolean
Dim t As String
On Error Resume Next
t = zelle.Comment.Text
hasComment = (Err.Number = 0)
On Error GoTo 0
End Function
Gruß, Andreas
Hallo Andreas,
danke für Deinen Tip
Gruß
Pauli