AW: Fehler beim Kompilieren - Außerhalb Prozedur....
04.07.2007 09:37:51
Marko
Hallo,
sorry...
Private SubUserForm_Initialize()
Dim i As Integer
'Das Kombinationsfeld Category füllen
For i = 2 To 5
UserForm2.ComboBox1.AddItem Sheets("Vorgaben").Cells(i, 1).Value
Next i
'Den ersten Eintrag einstellen
UserForm2.Combobox2.ListIndex = 0
Private Sub CommandButton1_Click()
'Daten wegschreiben
Sheets("Data").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With UserForm2
ActiveCell.Value = .TextBox11.Value
ActiveCell.Offset(0, 2).Value = .ComboBox1.Value
ActiveCell.Offset(0, 3).Value = .TextBox2.Value
ActiveCell.Offset(0, 6).Value = .TextBox3.Value
ActiveCell.Offset(0, 16).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .TextBox5.Value
ActiveCell.Offset(0, 5).Value = .TextBox6.Value
ActiveCell.Offset(0, 10).Value = .TextBox7.Value
ActiveCell.Offset(0, 11).Value = .TextBox8.Value
ActiveCell.Offset(0, 14).Value = .TextBox9.Value
ActiveCell.Offset(0, 15).Value = .TextBox10.Value
ActiveCell.Offset(0, 1).Value = .TextBox12.Value
If .OptionButton1.Value = True Then _
ActiveCell.Offset(0, 12).Value = .OptionButton1.Caption
If .OptionButton2.Value = True Then _
ActiveCell.Offset(0, 12).Value = .OptionButton2.Caption
If .OptionButton3.Value = True Then _
ActiveCell.Offset(0, 12).Value = .OptionButton3.Caption
If .OptionButton4.Value = True Then _
ActiveCell.Offset(0, 12).Value = .OptionButton4.Caption
If .OptionButton5.Value = True Then _
ActiveCell.Offset(0, 13).Value = .OptionButton5.Caption
If .OptionButton6.Value = True Then _
ActiveCell.Offset(0, 13).Value = .OptionButton6.Caption
If .OptionButton7.Value = True Then _
ActiveCell.Offset(0, 13).Value = .OptionButton7.Caption
If .OptionButton8.Value = True Then _
ActiveCell.Offset(0, 13).Value = .OptionButton8.Caption
If .OptionButton9.Value = True Then _
ActiveCell.Offset(0, 13).Value = .OptionButton9.Caption
End With
End Sub
Private Sub CommandButton3_Click()
Unload UserForm2
End Sub