Private
Sub
CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Worksheets(12).Cells(zeile, Spalte + 11) =
CDbl
(
Me
.TextBox5)
Worksheets(12).Cells(zeile, Spalte + 9) =
CDbl
(
Me
.ComboBox1)
Worksheets(12).Cells(zeile, Spalte + 10) =
CDbl
(
Me
.ComboBox2)
End
Sub
Private
Sub
CommandButton2_Click()
Unload UserForm2
End
Sub
Private
Sub
ListBox1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Me
.TextBox1 = Worksheets(12).Cells(zeile, Spalte)
Me
.TextBox2 = Worksheets(12).Cells(zeile, Spalte + 1)
Me
.TextBox3 = Worksheets(12).Cells(zeile, Spalte + 2)
Me
.TextBox4 = Worksheets(12).Cells(zeile, Spalte + 8)
Me
.TextBox5 = Worksheets(12).Cells(zeile, Spalte + 11)
Me
.ComboBox1 = Worksheets(12).Cells(zeile, Spalte + 9)
Me
.ComboBox2 = Worksheets(12).Cells(zeile, Spalte + 10)
End
Sub
Private
Sub
UserForm_Initialize()
Me
.ComboBox2.AddItem
"1"
Me
.ComboBox2.AddItem
"1,5"
Me
.ComboBox2.AddItem
"2"
Me
.ComboBox2.AddItem
"2,5"
Me
.ComboBox2.AddItem
"3"
Me
.ComboBox2.AddItem
"3,5"
Me
.ComboBox2.AddItem
"4"
Me
.ComboBox2.AddItem
"4,5"
Me
.ComboBox2.AddItem
"5"
Me
.ComboBox2.AddItem
"5,5"
Me
.ComboBox2.AddItem
"6"
Me
.ComboBox1.AddItem
"1"
Me
.ComboBox1.AddItem
"1,5"
Me
.ComboBox1.AddItem
"2"
Me
.ComboBox1.AddItem
"2,5"
Me
.ComboBox1.AddItem
"3"
Me
.ComboBox1.AddItem
"3,5"
Me
.ComboBox1.AddItem
"4"
Me
.ComboBox1.AddItem
"4,5"
Me
.ComboBox1.AddItem
"5"
Me
.ComboBox1.AddItem
"5,5"
Me
.ComboBox1.AddItem
"6"
End
Sub