Kommentare vergleichen, die zweite
28.12.2003 00:19:51
Franz W.
habe grade was über Kommentare gelernt (vielen Dank dafür), hänge beim selben Thema aber leider gleich noch mal. Folgender Code, den ich grade bekommen habe:
Sub komm()
On Error Resume Next
If Cells(4, 12).Comment.Text = Cells(5, 12).Comment.Text Then
MsgBox "gleich"
Else
MsgBox "ungleich"
End If
End Sub
Der Code klappt. Er vergleicht zuverlässig die Kommentare der beiden Zellen.
ABER: Hat eine dieser beiden Zellen aber KEINEN Kommentar, kommt auch die MsgBox "gleich". Wie kann ich mir da denn weiterhelfen?
Vielen Dank schon mal und Grüße
Franz