Hallo! Kann hier keine Dateine runterladen. Bei deinem Code ist das Problem, dass du die Combos nicht am Anfang mit Werten belegst. Das passiert bei dir erst, wenn sie geändert werden. ich würde da noch eine Userform_initialize nutzen. Damit werden beim Start gleich Daten eingetragen. Und dann sind die Werte in den Zellen Texte. Die musst du vor dem Rückschreiben wieder in Zahlen umwandeln. Probiere es mal so wie unten. VG
Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
'als Zahlen vom Wert double zurückschreiben
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()
'beim Starten die Boxen mit WErten füttern
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
|