Gegevens opzoeken

[jo geuens]

hallo, ik heb vogende code om data in userform intevullen maar als er geen data is met "Inged." krijg ik fout melding nu zou ik zelf
een melding willen dat er geen velden meer zijn met deze gegevens
dit is de fout melding


rood hier moet de voorwaarde komen
oragne = waarop gezocht wordt

Private Sub UserForm_Initialize()
     If [COLOR="#FF0000"]XXXXXXXXXXXXXXXXXXXXXXXXXX[/COLOR]Then
    Dim strMessage As String
    strMessage = "er zijn geen aanvragen meer die aangepast kunnen worden" & vbCrLf & "terug naar hoofdmenu"
    MsgBox strMessage
    End If
    Else
    Dim myArray() As Long       'Nummers van de opdrachten
    Dim nTeller1, nTeller2 As Integer
    
    nTeller1 = 0
    nTeller2 = 0
    ReDim myArray(100000)
    With Sheets("Planning").Range("B9")
        Do While .Offset(nTeller1, 0) <> ""
            If .Offset(nTeller1, 4) = [COLOR="#FF8C00"]"Inged." [/COLOR]Then
                myArray(nTeller2) = .Offset(nTeller1, 0)
                nTeller2 = nTeller2 + 1
            End If
            nTeller1 = nTeller1 + 1
        Loop
    End With
    
    ReDim Preserve myArray(nTeller2 - 1)
    
    ComboBox4.List = myArray

 

[Emil S]

met zo iets?

   With Sheets("Planning").Range("B9")
    If WorksheetFunction.CountIf(.Resize(.End(xlDown).Row), "Inged.") = 0 Then
        '.................
    End If
   End With

het zou handiger zijn om dat te controleren voordat je je userform start. ;-)