Code für OptionButton
08.01.2003 20:00:34
Jens
ich versuche schon den halben abend einen Code für ein Button anzupassen. Den nachfolgenden Code hatte ich in einer UF eingesetzt und hat so auch funktioniert. Nun wollte ich den Code aber in einer anderen UF bei schalten eines OptionButtons ausführen lassen, aber mit dem einfachen kopiere funktioniert das leider nicht. Wer kann mir dabei helfen?
Private Sub Userform_Initialize()
Dim col As New Collection
Dim iRow As Integer
iRow = 2
On Error Resume Next
Do Until IsEmpty(Worksheets("Tabelle1").Cells(iRow, 1))
col.Add Worksheets("Tabelle1").Cells(iRow, 1), Sheets("Tabelle1").Cells(iRow, 1)
If Err = 0 Then
ComboBox1.AddItem Worksheets("Tabelle1").Cells(iRow, 1)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
TextBox4.Value = Format(TextBox4.Value, "#,##0.00 ")
ComboBox1.ListIndex = -1
ComboBox2.AddItem "1"
End Sub
Danke im voraus Jens
Anzeige