Hallo,
ich habe eine UF mit Textboxen
KDNR Textbox11
ProjektNr Textbox12
Netto
Brutto
MwSt.
With Workbooks("DatFaktur.xlsx").Worksheets("ZahlUebersicht")
Endrow2 = .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(Endrow2, 1) = TextBox12.Value And _
.Cells(Endrow2, 10) = TextBox11.Value Then
Sum1 = .Cells(Endrow2, 2)
Sum2 = .Cells(Endrow2, 3)
Sum3 = .Cells(Endrow2, 4)
Sum1t = Sum1 + Netto
Sum2t = Sum2 + MwSt
Sum3t = Sum3 + Brutto
.Cells(Endrow2, 2) = Sum1t
.Cells(Endrow2, 3) = Sum2t
.Cells(Endrow2, 4) = Sum3t
.Cells(Endrow2, 8) = "=SUM(RC[-4]-RC[-1])"
.Cells(Endrow2, 11) = Endrow2
Else
MsgBox "kein Eintrag!"
End If
End With
Leider erfolgt kein Eintrag!
Was mache ich falsch, bzw. wie kann ich das anders lösen?
Danke!
Gruß
Ludmila