Hallo AlterDresdner,

Erstmal Danke für deine Antwort.

Bin darauf gekommen, dass es mit lngZeile ja gar nicht funktionieren kann. Da ich ja mit Rng meinen Zelleninhalt habe, bei dem die Bedienung erfüllt ist, dass in der gleichen Zeile und in Spalte "R" ein bestimmter Text steht. Ich kann ja dann garnicht meinen ganzen Zeilen mit lngZeilen durchlaufen.

Hoffe du kapierst es so, wie ich es geschrieben habe ;)

Jetzt habe ich es so probiert:

  'Frucht 1
                If UserForm2.OptionButton1.Value = True Then    'Frucht 1
                UserForm2.ListBox1.Clear                        'Listenfeld leeren
                     
                        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
                            End If
                        Next Rng
                        
                        For Each Rng In Range("E7:E22")             'Bereich Felder Betrieb ...
                            If Rng.Offset(0, 13).Value = Worksheets("Einstellungen").Range("E15") Then  'Spalte von Anbauplan
                                    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Rng.Value
                            End If
                        Next Rng
                    
                End If

Hier steht aber dann in der zweiten Spalte, nur im letzten Eintrag der ListBox etwas, sogar das Richtige :)

Vermute es liegt daran:

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Rng.Value

Hier steht - 1 aber Excel muss doch die ganzen vorhandenen Einträge in der ListBox durchlaufen.

Wäre nett wenn du mir nochmal weiterhelfen könntest.

Mfg Simon