ListBox unter Bedingung befüllen
19.08.2021 12:08:41
Stephan
ich habe auf einer UserForm2 eine globale Variable s definiert. Nun würde ich gerne auf einer UserForm7 eine ListBox mit Werten (Spalte A, B und C) aus dem Tabellenblatt "Test" befüllen, in welcher der Wert der Variable s in Spalte A steht. Sprich, sobald der Wert der Variable s in Spalte A steht soll die ganze Zeile in die ListBox eingelesen werden. Ist der Wert der Variable s nicht in Spalte A zu finden, soll die Zeile auch nicht in die ListBox geschrieben werden. Mein Code dafür sieht folgerderweise aus, klappt aber leider nicht. Die ListBox bliebt komplett leer.
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 100
If Sheets("Test").Cells(i, 1) = s Then
With ListBox1
.AddItem Cells(i, 1)
End With
End If
Next
End Sub
Beste Grüße,
Stephan
Anzeige