Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige