msgbox bij lege lstbox

[Spiesse]

voor een lstbox ben ik op zoek naar voorwaarden...

als de lstbox leeg is dan moet er een msgbox verschijnen dat er geen brieven beschikbaar zijn. Is de lstbox niet leeg dan moet de macro verder zijn werk doen...

Ik sukkel nog met de if en end if en next en zo van die dingen...

Dit is het deel van de code waar het om gaat... Met deze if komen er namen in de lstbox. Nu moet er gekeken worden naar het volgende:
als j=date en ax= OK dan msgbox en stoppen met de procedure (word openen en brieven automatisch printen)

For I = 2 To 3000
 
        If CDate(Range("j" & I).Value) = Date And (Range("ax" & I).Value) = "" Then
        UFstart.LstBrievenMaken.AddItem Range("a" & I).Value
        End If
        
    Next

is er iemand met een aanzet?

 

[Niels28]

Heb je hier voldoende aan?

If ListBox1.ListIndex = -1 Then MsgBox "blablabla"

Niels

 

[Spiesse]

dag niels,

ik ga deze es gaan proberen sie ik hou je op de hoogte van de evolutie

thx in advance!

 

[Spiesse]

hoe brei ik het vervolg? dus als de listindex niet leeg is?

 

[Niels28]

If ListBox1.ListIndex = -1 Then
MsgBox "blablabla"
Exit Sub
End If

rest code

Niels

 

[Spiesse]

ik denk dat deze doet wat moet

thx again!!!