negative Werte
10.02.2005 11:12:24
Uschi
Ich habe für Euch Profis bestimmt eine leichte Frage!
Mit dem unten aufgeführten Code werden die Werte von einem Blatt in ein zweites übertragen!
Das funktioniert auch gut!!
Cells(lR, 1) = Range("Nr")
Cells(lR, 2) = Range("Datum")
Cells(lR, 3) = Range("Netto")
Cells(lR, 4) = Range("MwSt_Betrag")
Cells(lR, 5) = Range("Gesammtbetrag")
Nun meine Frage:
Die "Nr" kann einen Zusatz haben: -S
Beispiel:
Normal: "106" mit Zusatz "106 - S"
Wenn dieser Zusatz da ist, sollen die Werte als Minuswerte übertragen werden!
Meine Überlegung war folgende:
If Cells(lR, 1) = "Nr - S" Then
Cells(lR, 5) = Range("Gesammtbetrag") * (-1)
Cells(lR, 4) = Range("summe_incl_mwst") * (-1)
End If
leider gehts nicht!!
kann mir jemand auf die Sprünge helfen?
Wäre sehr nett!!
Gruß Uschi