Macht immer noch die zweite Spalte nur in der letzten Zeile der ListBox
Bei Rng1 hats du die anderen Rng's nicht auf Rng1 umgeschrieben.
For Each Rng In Range("B7:B22") 'Bereich Felder Betrieb ...
If Rng.Offset(0, 16).Value = Worksheets("Einstellungen").Range("E15") Then 'Spalte von Anbauplan
Me.ListBox1.AddItem Rng.Text
For Each Rng1 In Range("E7:E22") 'Bereich Felder Betrieb ...
If Rng1.Offset(0, 13).Value = Worksheets("Einstellungen").Range("E15") Then 'Spalte von Anbauplan
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Rng1.Value
End If
Next Rng1
End If
Next Rng
Funktioniert aber so auch nicht
|