Guten Morgen,
ich erfasse mittels einer Eingabemaske auf einem Excel-Sheet 13 Werte über TextBoxen, welche dann auf die aus einer Combobox ausgewählten Tabelle eingetragen werden. Dies klappt soweit auch.
Jetzt habe ich in den einzelnen Tabellen in der Zelle D1 eine Formel stehen, welche ich nach dem Eintrag der Werte gerne Anpassen möchte. Dies klappt leider nicht.
Anbei mal ein wenig Code, ich hoffe es ist alles verständlich ;-)
With Sheets(combobox.Text)
For i = 1 To Sheets("Funktionen").ComboBox2.Value
'die Zeilenzahl ist bestimmen
zZ = Sheets(combobox.Text).Cells(Rows.Count, 1).End(xlUp).Row
Select Case zZ
Case zZ = "4"
.Cells(zZ + 1, "A") = "1"
Case Else
.Cells(zZ + 1, "A") = zZ - 3
End Select
Y = 2
Do While Y < 16
t = 0
For t2 = 1 To 14
.Cells(zZ + 1, Y) = Werte_Array(t)
Y = Y + 1
t = t + 1
Next t2
.Cells(zZ + 1, "N").Value = .Cells(zZ, "N").Value & ", " & Opt_text
Loop
Next i
~f~
<b>Folgender Teil mit der Formel funktioniert leider nicht:</b>
~f~
'Formel in Zelle D1 soll so angepasst werden, dass auch der letzte Eintrag bei der Berechnung berücksichtigt wird
Sheets(ComboBox.Text).Range("D1").FormulaLocal = "=101-(((SUM(I5:I" & zZ & ")+SUM(J5:J" & zZ & "))*5 +SUM(K5:K" & zZ & ")*30))/SUM(H5:H" & zZ & ")))"
End With
Hat einer vielleicht eine Idee? Wäre für jede Hilfe dankbar.
gruß Malte