|
Hallo,
habe folgendes Markro in UserForm4 stehen:
Private Sub OptionButton7_Click()
If UserForm4.OptionButton7.Value = True Then 'Betrieb 1=True DANN;
UserForm4.ListBox1.Clear 'Listenfeld leeren
Worksheets("Tabelle1").Activate 'Tbl-Schlag für Feldabfrage öffnen
MsgBox "OK1"
With UserForm4.ListBox1
'Frucht 1
If UserForm4.OptionButton1.Value = True Then '## Frucht ...=True DANN;##
MsgBox "OK2"
UserForm4.ListBox1.Clear 'Listenfeld leeren
For Each Rng In Range("B8:B23") '### Bereich Felder Betrieb ... Angeben ###
If Rng.Offset(0, 13).Value = "KM" Then '### Spalte von Tbl und Zelleninhalt angeben ###
UserForm4.ListBox1.AddItem Rng.Text 'Einschreiben in ListBox
End If
Next Rng
Else
Me.ListBox1.RowSource = ""
End If
End Sub
Und zwar wenn sich OptionButton7 ändert (auf True) soll er ... machen und mir dann die MsgBox mit OK1 bringen, dies funktioniert bis da hin.
Nun soll er, wenn OptionButton1 auf true steht die MsgBox mit OK2 bringen, dies macht er nicht. Der Rest müsste funktionieren, da ich es vor langen in einer anderen Exceldatei schon zum laufen gebracht habe. Er Befüllt mir auch die ListBox nicht.
Hat jemand eine Idee, was ich falsch mache?
Mfg Karin
|