title image


Smiley HOSA wat'n dat :-)
hiho



ungefähr so wenn ich das richtig verstanden habe



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, jahre As Integer, tobi As Integer

For jahre = 1 To 8

Cells(76, 17 + jahre).Value = jahre & ".Jahre"

Next



For tobi = 0 To 5

With Sheets("WKZ")

If .Cells(70 + tobi, 22).Value - .Cells(70 + tobi, 19).Value > 0 Then

Betrag = 0

Else

divi = WorksheetFunction.Sum(.Range("R77:Y77"))

Betrag = (-(.Cells(70 + tobi, 22).Value - .Cells(70 + tobi, 19).Value) * 1.15) / divi

End If

.Cells(78, 18 + tobi).Value = WorksheetFunction.Round(Betrag, 2)

End With

Next

End Sub



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, jahre As Integer, tobi As Integer

For jahre = 1 To 8

Cells(76, 17 + jahre).Value = jahre & ".Jahre"

Next



For tobi = 0 To 5

With Sheets("WKZ")

If .Cells(70 + tobi, 22).Value - .Cells(70 + tobi, 19).Value > 0 Then

Betrag = 0

Else

divi = WorksheetFunction.Sum(.Range("R77:Y77"))

Betrag = (-(.Cells(70 + tobi, 22).Value - .Cells(70 + tobi, 19).Value) * 1.15) / divi

End If

.Cells(78, 18 + tobi).Value = WorksheetFunction.Round(Betrag, 2)

End With

Next

End Sub
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: