Hoi helpers,
Wellicht vrij simpel, maar kan het niet vinden.
Heb een listbox met 2 kolommen. Hoe kan ik het aantal rijen in de listbox tellen?
In de listbox kunnen items toegevoegd en verwijderd worden. Als er iets toegevoegd wordt verschijnt er een '!' op het werkblad, maar wanneer deze verwijderd wordt wil ik graag dat de '!' verdwijnt.
Het gaat om de rode lijn.
Wellicht vrij simpel, maar kan het niet vinden.
Heb een listbox met 2 kolommen. Hoe kan ik het aantal rijen in de listbox tellen?
In de listbox kunnen items toegevoegd en verwijderd worden. Als er iets toegevoegd wordt verschijnt er een '!' op het werkblad, maar wanneer deze verwijderd wordt wil ik graag dat de '!' verdwijnt.
Code:
If ListBox1.ListIndex <> -1 Then a = ListBox1.Column(1)
If a = "" Then MsgBox "Selecteer een bestand", vbInformation, "Oeps": Exit Sub
If MsgBox("Weet u het zeker?", vbYesNo + vbQuestion) = vbYes Then
With Sheets("BL")
f = .Range("D2:D" & .Range("D" & Rows.Count).End(xlUp).Row).Find(a).Row
.Rows(f).Delete xlUp
End With
Else: Exit Sub
End If
[COLOR="#FF0000"][B]If ListBox1.ListCount + 1 / 2 < 2 Then ActiveCell.Value = ""[/B][/COLOR]
Unload Me
Laatst bewerkt: