Hallo,

Ich habe Folgenden Code:

'----------Betrieb 1----------
Private Sub Betrieb1()

Dim lngZeile As Long
Dim lngz As Long

    If UserForm2.OptionButton7.Value = True Then
        UserForm2.ListBox1.Clear
        Worksheets("Anbauplan").Activate
        With UserForm2.ListBox1

               'Frucht 1  ## NEUER CODE ##
                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 und Zelleninhalt
                                For lngZeile = 7 To 22
                                    Me.ListBox1.AddItem .Range("B" & lngZeile).Value
                                    Me.ListBox1.Column(1, lngz) = .Range("B" & lngZeile).Value
                                    Me.ListBox1.Column(2, lngz) = .Range("D" & lngZeile).Value
                                    
                                    lngz = lngz + 1
                                
                                Next lngZeile
                                
                            End If
                        Next Rng
                End If

                'Frucht 2  ## ALTER CODE ##
                If UserForm2.OptionButton2.Value = True Then    'Frucht 2
                UserForm2.ListBox1.Clear                        'Listenfeld leeren
                    For Each Rng In Range("B7:B22")             'Bereich Felder Betrieb ... 
                        If Rng.Offset(0, 16).Value = Worksheets("Einstellungen").Range("E16") Then  'Spalte von Anbauplan und Zelleninhalt
                        UserForm2.ListBox1.AddItem Rng.Text     'Einschreiben in ListBox
                        End If
                    Next Rng
                End If

Bei Frucht 2 wäre mein alter Code. Dieser schaut erst einmal ob im Bereich von R7 bis B22 (B7 bis B22 und dann mit dem Offset von 16 Spalten) der Text steht, der in dem Tabellenblatt "Einstellungen" E15, E16, E... steht. Wenn das der Fall ist, schreibt er den Text dieser Spalte in eine einspaltige ListBox.

Jetzt würde ich aber in einer zweiten Spalte in der ListBox noch die Daten der Spalte D sehen wollen. Diese habe ich bei Frucht 1 probiert. Aber irgendwie will das Ganze noch nicht so recht.

Wenn mir jemand ein wenig unter die Arme greifen könnte, dem wäre ich sehr dankbar.

Mfg Simon