Combobox
04.07.2007 11:05:00
Tobias
habe folgendes Problem, hab mir eine Combobox in ein Tabellenblatt eingefügt und soweit mit Text gefüllt.
Aber wenn ich jetzt einen Fall auswähle bleibt dieser Text nicht im Auswahlfeld stehen, sondern es blinkt immer nur der Cursor im Feld. Möchte jedoch, dass der Fall den ich gewählt habe angezeigt wird.
Wie kann man das machen? Vielleicht kann mir jemand von euch helfen?
Gruß Tobias
Anbei der code:
Private Sub ComboBox1_Click()
Dim letzte As Integer
Dim iRow As Integer
Dim Wert As Double
letzte = Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Select Case ComboBox1.Text
Case "[1/min]"
For iRow = 8 To letzte
Worksheets(6).Cells(iRow, 1).Clear
Next
For iRow = 41 To letzte
Wert = Worksheets(1).Cells(iRow, 2).Value
With Worksheets(6)
.Range("A65536").End(xlUp).Offset(1, 0).Value = Wert
End With
Next
Case "[1/s]"
For iRow = 8 To letzte
Worksheets(6).Cells(iRow, 1).Clear
Next
For iRow = 41 To letzte
Wert = Worksheets(1).Cells(iRow, 2).Value / 60
With Worksheets(6)
.Range("A65536").End(xlUp).Offset(1, 0).Value = Wert
End With
Next
End Select
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
Worksheets(6).ComboBox1.AddItem "[1/min]"
Worksheets(6).ComboBox1.AddItem "[1/s]"
End Sub