Kommentar abfragen und ändern

Forumthread: Kommentar abfragen und ändern
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kommentar abfragen und ändern

17.07.2008 11:27:36

SteffenS

Hallo Zusammen,
ich habe ein Problem bei dem ich Eure Hilfe brauche.
Ich möchte abfragen ob in einer Zelle ein Kommentar steht.
Ist dies so, so möchte ich die 2. Zeile sofern vorhanden, verändern bzw. löschen.
Wie bekomme ich so etwas hin?
Danke im Voraus.
MFG
Steffen Schmerler

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kommentar abfragen und ändern

17.07.2008 11:29:52

Hajo_Zi
AW: Kommentar abfragen und ändern

17.07.2008 12:02:07

Beverly
Danke

19.07.2008 16:13:06

SteffenS

AW: Kommentar abfragen und ändern

17.07.2008 11:29:52

Hajo_Zi

Hallo Steffen,
ich vermute Du meinst per VBA?
Teil 1
Prüfen ob Kommentar da
if cells(x,y).Comment is nothing then msgbox "nix da"

AW: Kommentar abfragen und ändern

17.07.2008 12:02:07

Beverly

Hu Steffen,
nur die erste Zeile bleibt erhalten:


Sub kommentarzeile_loeschen()
If Not ActiveCell.Comment Is Nothing Then
With ActiveCell.Comment
.Text Left(ActiveCell.Comment.Text, InStr(ActiveCell.Comment.Text, Chr(10)) - 1)
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub