Habe in einem Tabellenblatt eine combobox.
Möchte das der Focus nach Auswah eines Wertes wieder in die ursprgl. Zelle geht.
Funktioniert beim wechseln des Wertes wunderbar:
Private Sub combo_Change()
Dim zelle As Range
Set zelle = ActiveCell
ActiveCell.Value = CSng(combo.Text)
zelle.Select
End Sub
Wenn ich meinen Wert in der Combobox aber nicht wechsle komm ich natürlich nicht zu meinem change-Ereignis.
Wie kann ich dann trotzdem den Focus wieder in eine Zelle setzen?
Gibts da nicht eine ganz einfache Eigenschaft?
So gehts nicht: (die auskommentierten Zeilen würden das "aufklappen" der combobox gar nicht zulassen!)
Private Sub Tag_comb_GotFocus()
'Dim zelle As Range
'Set zelle = ActiveCell
ActiveCell.Value = CSng(combo.Text)
'zelle.Select
End Sub
Vielen Dank
Wolfgang