Ähm, das erscheint mit jetzt zwar zu einfach aber dann einfach so. Oder?
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 + 9) = Me.ComboBox1
Worksheets(12).Cells(zeile, Spalte + 10) = Me.ComboBox2
Me.TextBox5 = Worksheets(12).Cells(zeile, Spalte + 11)
End Sub
Damit wird deine Spalte mit der Formel nicht überschrieben sondern nochmal eingelesen. Da vorher aber die Werte der Combos geschrieben wurden, sollte das Ergebnis ankommen.
VG
|