• 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.

Textbox vullen

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
beste helpers

Ik heb een userform enkel met een listbox

Code: 
Private Sub Userform_initialize()
    With Sheets("Uitslagen")
    V = .Range("R8:r" & .Cells(Rows.count, 1).End(xlUp).Row)
    End With
    ListBox1.List = V
End Sub

Die listbox krijg ik keurig gevuld met bovenstaande code
echter als er een lege cel in de kolom is dan vallen er gaten
Nu is mijn vraag als in kolom R een cel leeg is dan deze overslaan en naar de volgende waarde
Is dat op te lossen?
Lege cellen dus overslaan bij het laden

bvd
 
Laatst bewerkt:
Code: 
Private Sub Userform_initialize()
ListBox1.List = Filter([transpose(if(Uitslagen!R8:R200="","~",Uitslagen!R8:R200))], "~", False)
End Sub

Nog een manier

Code: 
Private Sub UserForm_Initialize()
 With Sheets("Uitslagen")
     V = .Range("R8", .Cells(Rows.Count, 18).End(xlUp))
      For j = 1 To UBound(V)
        If InStr(c00, V(j, 1)) = 0 Then c00 = c00 & "|" & V(j, 1)
      Next j
     ListBox1.List = Split(Mid(c00, 2), "|")
 End With
End Sub
 
Laatst bewerkt:
Beste JVeer

Ik heb enkel de eerste optie getest en werkt simpelweg precies zoals ik het graag wil
heel erg bedankt voor je fijne hulp :thumb:

Don
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan