Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 16 van 16

Onderwerp: vinden van commentaar in een bereik

  1. #1
    Senior Member
    Geregistreerd
    14 januari 2008
    Vraag is niet opgelost

    vinden van commentaar in een bereik

    Hi

    Waarom geeft de code wel commentaar terug als ik een cel zonder commentaar selecteer?

    Code:
    Sub FindComments()
        Dim rngComments As Range
        Set rngComments = Selection
        On Error Resume Next
       ' Set rngComments = rngComments.SpecialCells(xlCellTypeComments)
        On Error GoTo 0
      If rngComments Is Nothing Then
            MsgBox "heeft geen commentaar"
        Else
        MsgBox "heeft wel commentaar"
        End If
      
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat bericht wordt gegeven omdat in je code rngComments nooit Nothing is.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Senior Member
    Geregistreerd
    14 januari 2008
    Hoe dan de code wijzigen? Zodat ik wel geen commentaar krijg?
    En waarom is een range altijd met commentaar ?

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Het heeft niks te maken met wel of geen commentaar.
    Je maakt een object, rngComments, en deze is nooit Nothing.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Senior Member
    Geregistreerd
    14 januari 2008
    hoe dan de code aanpassen

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Om er maar snel van af te zijn:

    Code:
    Sub FindComments()
      On Error Resume Next
      For Each cl In Selection.SpecialCells(-4144)
        If Not Intersect(cl, Selection) Is Nothing Then c00 = c00 & cl.Address & vbLf
       Next cl
       If Len(c00) Then MsgBox c00
    End Sub
    Laatst aangepast door VenA : 21 juli 2021 om 17:16
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Senior Member
    Geregistreerd
    14 januari 2008
    @ VenA
    waarom zo een negatief begin
    is code die van internet komt
    zoek al gans de middag er naar voor ik het hier poste

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Maar z'n code is correct.
    Ik probeerde duidelijk te maken waarom je eigen code niet doet wat je verwacht.
    Laatst aangepast door edmoor : 21 juli 2021 om 17:22
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    Senior Member
    Geregistreerd
    14 januari 2008
    dat heb ik toch niet gezegd dat ze niet correct is

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat bedoelde ik er ook niet mee te zeggen
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. #11
    Senior Member
    Geregistreerd
    14 januari 2008
    waarom word de range nooit nothing

  12. #12
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    @ VenA
    waarom zo een negatief begin
    Omdat jouw oeverloze gezeur hier bekend is. Het was trouwens niet negatief maar een oplossing voor de vraag. Tegen de tijd dat je er iets van gaat begrijpen sta je bij bijna alle helpers op de negeerlijst.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  13. #13
    Senior Member
    Geregistreerd
    14 januari 2008
    stelde een dood normale vraag niet meer niet minder
    Dus veracht ik een normaal antwoord en geen negatieve comentaar

  14. #14
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Code:
    Private Sub CmdFindComment_Click() 
     For Each cl In Selection
        If Not cl.Comment Is Nothing Then c00 = c00 & cl.Address & vbLf
      Next cl
     If Len(c00) Then MsgBox c00
    End Sub
    Code:
    Private Sub CmdFindComment_Click()
      On Error Resume Next
      For Each cl In Selection.SpecialCells(-4144)
        c00 = c00 & cl.Address & vbLf
       Next cl
       If Len(c00) Then MsgBox c00
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  15. #15
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Quote Origineel gepost door glda19 Bekijk Bericht
    waarom word de range nooit nothing
    Omdat deze opdracht:
    Set rngComments = Selection

    er voor zorgt dat het altijd een geldig object is.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  16. #16
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    Code:
    Sub MijnCommentaren()
       On Error Resume Next
       Set c = Selection.SpecialCells(xlCellTypeComments)
       If Err.Number <> 0 Then MsgBox "foutje bedankt" & vbLf & Err.Number & vbLf & Err.Description: GoTo Einde
       On Error GoTo 0
       MsgBox "cellen met commentaar " & c.Address
    Einde:
    End Sub

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren