Hallo Comunity,

in der Hoffnung, dass mir doch noch jemand auf die Sprünge helfen kann:

Ich habe Probleme mit den beiden Kombinationsfeldern im Frame Noten und der Ausgabe im Textfeld Durchschnitt. In den Kombinationsfelder soll man Noten in 0,5 Schritten auswählen können. Diese sollen in die Spalten K und L übertragen werden.

Problem 1 - das funktioniert nur, wenn amn vorher schon manuell Noten in die entsprechenden Zellen einträgt.

Im Textfeld Druchschnitt soll der Wert aus der Spalte J ausgegeben werden. In der Spalte J befindet sich die Formel Mittelwert in Bezug auf K und L..

Problem 2 - die über die Maske eingegebenen Ziffern werden offensichtlich nicht als Zahl erkannt, denn der Mittelwert wird weder in der Zelle (J2) noch in der Maske angezeigt.

Code:

Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Worksheets(12).Cells(zeile, Spalte + 11) = Me.TextBox5
Worksheets(12).Cells(zeile, Spalte + 9) = Me.ComboBox1
Worksheets(12).Cells(zeile, Spalte + 10) = 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 ComboBox1_Change()
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

Private Sub ComboBox2_Change()
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"
End Sub

Vielen Dank!!!