title image


Smiley Re: Excel funktion im VBA
hiho



Sub itu()

'also es soll 2 werte subtrahieren(V70 und S70) wenn dieser

'betrag grösser als 0 ist, soll er eine null schreiben, sonst soll er das ergebnis nehmen,

'es mit 1,15 multiplizieren und anschliessend durch den Wert in R77 teilen.

Dim Betrag As Double

With Sheets("WKZ")

If .Range("V70").Value - .Range("S70").Value > 0 Then

Betrag = 0

Else

Betrag = ((.Range("V70").Value - .Range("S70").Value) * 1.15) / .Range("R77").Value

End If

.Range("R78").Value = WorksheetFunction.Round(Betrag, 2)

End With

End Sub





hier noch mal kopierbar

Sub itu()

'also es soll 2 werte subtrahieren(V70 und S70) wenn dieser

'betrag grösser als 0 ist, soll er eine null schreiben, sonst soll er das ergebnis nehmen,

'es mit 1,15 multiplizieren und anschliessend durch den Wert in R77 teilen.

Dim Betrag As Double

With Sheets("WKZ")

If .Range("V70").Value - .Range("S70").Value > 0 Then

Betrag = 0

Else

Betrag = ((.Range("V70").Value - .Range("S70").Value) * 1.15) / .Range("R77").Value

End If

.Range("R78").Value = WorksheetFunction.Round(Betrag, 2)

End With

End Sub



nur für was ist die Menge?

aber das wirst du schon wissen ;-)






Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: