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
If UserForm2.OptionButton1.Value = True Then
UserForm2.ListBox1.Clear
For Each Rng In Range("B7:B22")
If Rng.Offset(0, 16).Value = Worksheets("Einstellungen").Range("E15") Then
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
If UserForm2.OptionButton2.Value = True Then
UserForm2.ListBox1.Clear
For Each Rng In Range("B7:B22")
If Rng.Offset(0, 16).Value = Worksheets("Einstellungen").Range("E16") Then
UserForm2.ListBox1.AddItem Rng.Text
End If
Next Rng
End If