AW: Zellen multiplizieren mit CommanButton
25.09.2009 08:25:51
Tino
Hallo,
Du meinst bestimmt so, wenn Du bei +10% auf 110 kommst,
möchtest Du bei -10% wieder auf 100 kommen.
Sub Multiplizieren(Wert As Double)
Dim MeAR, A As Long
With Sheets("Tabelle1")
MeAR = .Range("B11:B40")
For A = 1 To Ubound(MeAR)
If Wert > 0 Then
If IsNumeric(MeAR(A, 1)) Then
MeAR(A, 1) = MeAR(A, 1) + MeAR(A, 1) * Wert / 100
End If
Else
'=L9-L9/119*19
If IsNumeric(MeAR(A, 1)) Then
MeAR(A, 1) = MeAR(A, 1) - MeAR(A, 1) / (100 + Abs(Wert)) * Abs(Wert)
End If
End If
Next A
.Range("B11:B40") = MeAR
End With
End Sub
Private Sub CommandButton1_Click()
Multiplizieren 10
End Sub
Private Sub CommandButton2_Click()
Multiplizieren -10
End Sub
Gruß Tino