Kijken ofdat er een opmerking in een cel staat

[Bridelance]

Ik zit met een probleem, dat dringend moet worden opgelost.

In mijn VBA-programma moet ik de opmerkingen, die bij een cel kunnen staan, opvragen. Hij mag dit enkel doen als er wel degelijk een opmerking zich in de cel bevindt.

Ik dacht aan zoiets maar blijkbaar gaat dit niet

If (ActiveCell.Comment.Text = "") Then .........

Is er iemand die mij snel kan helpen

 

[leofact]

Zet met jouw code de waarde eerst in een string variabele

sVariable = ActiveCell.Comment.Text

Dit werkt alleen wanneer er daadwerkelijk een commentaar is toegevoegd,
anders geeft VBA een foutmelding
Met on error vang je deze af en met exit sub gebeurt er dan niets.
vervolgens kun je met de string verder gaan wanneer er wel een commentraar is.
mvg leo

 

[Jan van Asseldonk]

Klein voorbeeldje:
Controleert A1 t/m A10 en als er een opmerking staat wordt deze in kolm B geplaatst

Sub opmerking()
On Error GoTo fout
For i = 1 To 10
    If Cells(i, 1).Comment.Text <> "" Then
        Cells(i, 2).Value = Cells(i, 1).Comment.Text
    End If
Next i
fout:
If Err.Number = 91 Then Resume Next
End Sub

 

[Wigi]

Verder gaand op de post van Leo, hier is een functie:

Function IsErOpmerking(Target As Range) As Boolean
'Functie om na te gaan of er een opmerking in een cel is (WAAR) of niet (ONWAAR)
    
    Dim txt As String
    On Error Resume Next
    txt = Target.Comment.Text
    If Err.Number = 0 Then IsErOpmerking = True
    Err.Clear
    
End Function

Staat ook op mijn site. Ga naar Excel, dan VBA-code, dan "Opmerkingen".

Wigi

 

[leofact]

Verder gaand op de post van Leo, hier is een functie

Dat lijkt me de lading helmaal te dekken. Ziet er prima uit(zoals altijd)

 

[Bridelance]

Ik heb de eerste methode gebruikt die leo voorstelde, en die doet het prima :thumb: (Ik moest namelijk nog snel mijn taak indienen, en ik kon niet wachten op andere manieren om het op te lossen.)

Bedankt allemaal voor de snelle reactie!!

 

[huijb]

Ik heb de eerste methode gebruikt die leo voorstelde, en die doet het prima :thumb: (Ik moest namelijk nog snel mijn taak indienen, en ik kon niet wachten op andere manieren om het op te lossen.)

Bedankt allemaal voor de snelle reactie!!

Dan mag je alleen nog even deze vraag op opgelost zetten. Zodat we hier in de toekomst ook nog wat aan hebben.