Daten in Listbox von Bereich erfassen
06.12.2017 15:57:29
Bereich
Mein Problem: Eine ListBox wird mit Werten befüllt, dabei erfasst Sie nur alle Werte solange bis eine freie Zeile kommt, in der nix steht. Sie sollte aber alle Werte mit einem X bis Zeile 257 erfassen.
Vielen Dank und einen schönen Nikolaustag allen :)
Private Sub UserForm_Activate()
Dim wsP As Worksheet
Set wsP = Worksheets("Personalpflege")
y = 26 'ab zeile 26
Do While wsP.Cells(y, 9).Value ""
If wsP.Cells(y, 9).Value = "X" Then
LB_1.AddItem wsP.Cells(y, 8).Value
End If
y = y + 1 '
Loop
End Sub
Anzeige