werkblad de cel met naam een opmerking bevat dan in User form

[loek010]

Beste leden,

Ik heb een verkort voorbeeld bijgevoegd.
Doel is als in het Userform de textbox met naam, met in het werkblad adressen de cel met naam een opmerking bevat
dan in het Userform de label met groene stip zichtbaar maken indien geen opmerking dan
label niet zichtbaar. Hoe krijg ik dit voor mekaar iemand een oplossing?

 

[AD1957]

Probeer het eens zo.

Private Sub LB_00_Click()
    For i = 0 To 5
    Me("TXBX_" & Format(i, "00")) = LB_00.Column(i)
    Next
    
    If Not Cells(LB_00.ListIndex + 2, 3).Comment Is Nothing Then
        Label7.Visible = True
        LB_OP3.Visible = True
    Else
        Label7.Visible = False
        LB_OP3.Visible = False
    End If
End Sub

 

[AD1957]

Of zo

Private Sub LB_00_Click()
    For i = 0 To 5
    Me("TXBX_" & Format(i, "00")) = LB_00.Column(i)
    Next
    
    Set opmerking = ActiveSheet.ListObjects(1).DataBodyRange(LB_00.ListIndex, 3).Comment
    
    If Not opmerking Is Nothing Then
        MsgBox opmerking.Text, , "OPMERKING"
        Label7.Visible = True
        LB_OP3.Visible = True
    Else
        Label7.Visible = False
        LB_OP3.Visible = False
    End If
End Sub

 

[loek010]

Re. Als in werkblad de cel met naam een opmerking bevat dan in User form

Hoi AD, Bedankt voor je hulp de code uit #2 werkt goed, maar als de list box wordt gefilterd
dan werkt de code niet meer zoals het zou moeten dan werkt de Listindex niet goed.
weet niet hoe ik dit moet aanpassen zie voorbeeld

 

[AD1957]

Zoek eens op Range.find method.

 

[loek010]

@AD1957

Bedankt voor je hulp inmiddels een oplossing gevonden :thumb:

Oplossing :

Private Sub LB_00_Click()
    Dim ws As Worksheet
    Dim xCell As Object
    Dim rng As Range
    Dim c As Comment
 
    Set ws = Worksheets("Adressen")
    Set rng = ws.Range("C3:C1000")
    
    For i = 0 To 5
    Me("TXBX_" & Format(i, "00")) = LB_00.Column(i)
    Next
    
    For Each xCell In rng
     If xCell.value = Me.TXBX_02.value Then
     With xCell
     On Error Resume Next
     Set c = .Comment
     If c Is Nothing Then
        LB_OP3.Visible = True
        LB_OP3.ForeColor = vbRed
    Else
        LB_OP3.Visible = True
        LB_OP3.ForeColor = RGB(0, 176, 80)
    End If
    End With
    End If
    Next
End Sub

Zie voorbeeld :