• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Code toevoegen aan bestaande code

Status
Niet open voor verdere reacties.
danny147

danny147

Terugkerende gebruiker
Lid geworden
29 apr 2007
Berichten
4.744
Beste,

Heb deze code staan:

Code: 
    For Each cl In Range("D5:I32")
        If cl = 0 Then
            cl.Value = "8AF"
        End If
    Next cl

en wil deze er aan toevoegen:

Code: 
    For Each cl In Range("D5:I32")
        If cl.Comment.Text = "VF(A)" or cl.Comment.Text = "VK(A)" Then
            cl.Value = "8AF"
        End If
    Next cl

Maar krijg dan onderstaande foutmelding:

"Objectvariabele of blokvariabele With is niet ingesteld"

Kan er iemand mij hierbij helpen ?
 
Laatst bewerkt:
Is het zeker dat al deze cellen ook daadwerkelijk een 'Comment' hebben ?
 
Beste,

Neen, alle celen bevatten geen comment
 
Dan kan je er dus ook best geen properties van opvragen voor elk van de cellen ...
Ofwel check je in je code vooraf bij elke cel in de loop of er een comment bestaat ofwel gebruik je niet de comments (wat me overigens niet handig lijkt in het gebruik).
 
Zo bijv.
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]    For Each cl In Range("D5:I32")
      If Not cl.Comment Is Nothing Then
        If cl.Comment.Text = "VF(A)" Or cl.Comment.Text = "VK(A)" Then
           cl.Value = "8AF"
        End If
      End If
    Next cl
[/FONT]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan