Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Feststellen, ob Zelle Kommentar hat

Feststellen, ob Zelle Kommentar hat
12.08.2003 13:45:24
Begges
Hallo,
wie kann ich denn mit VBA feststellen, ob eine Zelle einen Kommentar besitzt?
Danke
Begges

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feststellen, ob Zelle Kommentar hat
12.08.2003 13:55:25
sergiesam
Hi
versuchs damit:

Sub test()
Debug.Print HasComment(ActiveCell)
End Sub


Function HasComment(zelle As Range) As Boolean
On Error Resume Next
HasComment = zelle.Cells(1).Comment.Text <> ""
On Error GoTo 0
End Function

Gruß,
Sam

Funktioniert
12.08.2003 13:59:42
Begges
Danke funktioniert.
Begges

AW: Funktioniert
12.08.2003 14:11:23
sergiesam
HI,
Fehler vermeiden ist immer besser, deshalb sind die anderen Lösungen auf alle Fälle vorzuziehen.

Function HasComment(zelle As Range) As Boolean
HasComment = Not zelle.Cells(1).Comment Is Nothing
End Function

Sam

Anzeige
Danke, jetzt ists perfekt
12.08.2003 14:13:04
Begges
Jetzt ist es perfekt
Danke
Begges

AW: Feststellen, ob Zelle Kommentar hat
12.08.2003 13:57:30
Stephan
Hi Begges !
Ein Code wie dieser hilft:

Sub test()
If Range("A1").Comment Is Nothing Then
MsgBox "keine Kommentar"
Else
MsgBox "Kommentar"
End If
End Sub


AW: Feststellen, ob Zelle Kommentar hat
12.08.2003 13:59:33
Harald Kapp
Hallo Beggs,
so z.B. (hier fest für Zelle A1):

Sub test()
If Cells(1, 1).Comment Is Nothing Then
MsgBox "Kein Kommentar"
Else
MsgBox "Kommentar enthalten"
End If
End Sub

Gruß Harald

Funktioniert auch
12.08.2003 14:04:23
Begges
Funktionert auch. Jetzt habe ich die Qual der Wahl :-)
Danke an alle
Begges

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge