Listbox Probleme
05.12.2007 22:23:00
Kalle
vielleicht könnt ihr mir bei folgendem Problem helfen. In einer Userform fülle ich eine Listbox mit unterschiedlich vielen Zeilen. Ist nun in der Listbox nur ein Eintrag vorhanden wird dieser bei Anwahl ja selektiert. Wie kann ich erreichen, das ich diesen Eintrag bei Bedarf noch einmal anwählen kann, dh die vorhandene Selektierung wieder aufheben? Verschiedene Möglichkeiten mit Listindex usw. verliefen bis jetzt in diversen Fehlermeldungen. Im Moment behelfe ich mich damit, das ich in dem Betreffenden Ereignis die frm schließen und wieder öffnen lasse um die "Jungfräulichkeit" der Listbox wieder herzustellen. Aber da gibt es doch bestimmt auch eine einfachere bzw elegantere Lösung. Zum besseren Verständnis hier der Code.
Private Sub cboMonat_Change()
TextBoxMonat.Text = cboMonat.Text
frmDatum.lblaktuell = Sheets("Ausdruck").Range("H17")
Unload Me
frmDatum.Show
End Sub
Private Sub ListBoxDatum_Click()
cboMonat.Text = ""
frmDatum.lblaktuell = frmDatum.ListBoxDatum.Value
Sheets("Ausdruck").Range("H17") = frmDatum.lblaktuell
End Sub