Hallo Gerd und all Ihr Anderen fleißigen Helferlein!
Gestern hat mir Gerd meinen Code erweitert. Ich war zunächst auch sehr zufriden, denn jetzt lässt sich wieder nach der Eingabe mit den Werten rechnen.
Hier der Code:
Set Dia = frmDaten
Worksheets("CD_Archiv").Activate
With Dia
Cells(lng, 31).Value = .TextBox1.Text
Cells(lng, 32).Value = .TextBox2.Text
Cells(lng, 34).Value = .TextBox5.Text
Cells(lng, 37).Value = .TextBox7.Text
Cells(lng, 46).Value = .TextBox28.Text
Cells(lng, 47).NumberFormat = "#,##0.00"
Cells(lng, 47).Value = Format(Replace(.TextBox1, " DM", ""), "#,##0.00") * 1
Range("S2").Value = .TextBox28.Text
End With
Doch aus optischer Sicht und aus mathematischen Gründen würde ich gern dass wenn das Datum in TextBox28 kleiner Zelle S1 ist, in die Zelle auch ein DM Wert eingetragen wird, der Wert befindet sich in TextBox29, ist das Datum größer der Zelle S1 dann bitte auch € eintragen.
Ist auch das realisierbar?
Danke, herzlichst Frank H.!!!