Hi Leute,

hier bin ich mal wieder. Beschreibe das Problem anhand der Maske im Arbeitsblatt.

Die Kombinationsfelder bei Päd_MP_1 und 2 sollen die ausgewählten Noten in die grünen Spalten im Arbeitsblatt übertragen. Im Textfeld Durchschnitt soll der Mittelwert aus beiden Noten angezeigt werden. Also der Wert aus der orangenen Spalte.

Problem: Die vorgegebenen Ziffern (1; 1,5; 2; ...) erscheinen in den Kombinationsfeldern nur, wenn ich vorher schon eine Ziffer in die entsprechende Zelle eintrage - Fall1. Wenn nicht, bleiben die Felder leer - Fall 2.
Wenn ich die Änderungen mit dem OK-Buton (CommandButton1) abspeichere (Fall 1), werden die Ziffern zwar übernommen. Die Mittelwert-Formel aus der orangenen Spalte wird nun jedoch gelöscht und es belibt jedoch der alte Wert als Ziffer (!) erhalten. Hier kommt der Code der Maske:
 

Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Worksheets(12).Cells(zeile, Spalte) = Me.TextBox1
Worksheets(12).Cells(zeile, Spalte + 1) = Me.TextBox2
Worksheets(12).Cells(zeile, Spalte + 2) = Me.TextBox3
Worksheets(12).Cells(zeile, Spalte + 8) = Me.TextBox4
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

Wäre nett, wenn Ihr die Änderungsvorschläge gleich in den Code eintragt. Lerne zwar täglich dazu, bin aber noch blutiger Anfänger.

Vielen Dank!!!