aktives feld aus combobox füllen
29.03.2003 23:30:16
rolf
ich bin ein anfänger und versuch eine zelle mit dem inhalt einer combobox zu füllen mit:
Private Sub cbo_atribut_Change()
If TypeName(Selection) = "Range" Then
Cells(ActiveCell.Row, 4).Select
End If
ActiveCell.FormulaR1C1 = cbo_atribut.Text
End Sub
leider geht es nicht wenn für die nächste zelle das gleiche gewählt wird.
habs auch mit "Click" versucht, ändert aber nix.
Hat da jemand eine lösung für mich?
lieben gruss rolf
Anzeige