Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Existiert bereits ein Kommentar

Forumthread: Existiert bereits ein Kommentar

Existiert bereits ein Kommentar
30.07.2003 15:22:44
Rodent
Hallo Forum-User,
derzeit habe ich ein kleines VBA-Problem, das ich nicht lösen kann.
Mittels VBA erstelle ich automatisch Kommentare in Zellen.
Ich möchte jedoch vorher auf die Existenz eines Kommentars prüfen, d. h.
einen bestehenden Kommentar lediglich ergänzen bzw. einen neuen Kommentar anlegen, wenn noch keiner existiert.
Mir fehlt eigentlich nur der Weg (Code), wie ich prüfen kann ob schon ein kommentar in einer Zelle existiert.
Hoffentlich kann mir jemand helfen, vielen dank schon mal im Voraus.
Viele Grüsse
Rodent
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Existiert bereits ein Kommentar
30.07.2003 15:35:03
Knut 

Sub K_Test()
If ActiveCell.Comment Is Nothing Then Exit Sub
End Sub

Knut

AW: Existiert bereits ein Kommentar
30.07.2003 16:11:36
rodent
Hallo Knut,
vielen Dank für Deine prompte Antwort.
Ich sag jetzt mal lieber nicht, was ich alles versucht habe.
Dabei ist die Lösung so genial einfach.
Danke noch mal.
rodent

Anzeige
AW: Existiert bereits ein Kommentar
30.07.2003 15:37:48
Stephan R. 

Sub test()
If Range("A1").Comment Is Nothing Then
MsgBox "Kein Kommentar"
Else
MsgBox "Komemntar ist vorhanden"
End If
End Sub


AW: Existiert bereits ein Kommentar
30.07.2003 15:41:51
Mike E.
Hallo Rodent,
hier auch noch mein "Senf" zu Suche von Kommentaren in einem bestimmten Bereich:

Sub KommentarImBereich()
Dim Rng As Range
Set Rng = Range("a1:a5")
For Each zelle In Rng
If zelle.Comment Is Nothing Then
MsgBox ("Zelle " & zelle.Address & Chr(10) & _
"enthält keinen Kommentar!")
Else
MsgBox ("Zelle " & zelle.Address & Chr(10) & _
"enthält einen Kommentar!")
End If
Next zelle
End Sub

Gruß
Mike

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige