AW: multiplikation mit vba
18.03.2009 20:55:01
Makrigiannis
wo steckt da der wurm?
wollt einen 2 spaltenabschnitt einen anderen multiplikator wählen (in diesem fall 42).
der erste abschnitt läuft einwandfrei,sobald ich den 2 abschnitt einfüge gibt es probleme.
ich weiß ich nerve...aber brauche die tabele für eine ertragskalkulation...is wichtig....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Const Multiplikator As Currency = 13
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Range("B5:M5")) Is Nothing And IsNumeric(rngZelle) Then
If rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator)
End If
End If
If Not Intersect(rngZelle, Range("B8:M8")) Is Nothing And IsNumeric(rngZelle) Then
If rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator)
End If
End If
If Not Intersect(rngZelle, Range("B11:M11")) Is Nothing And IsNumeric(rngZelle) Then
If rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator)
End If
End If
Next rngZelle
Application.EnableEvents = True
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Const Multiplikator As Currency = 42
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Range("B6:M6")) Is Nothing And IsNumeric(rngZelle) Then
If rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator)
End If
End If
If Not Intersect(rngZelle, Range("B9:M9")) Is Nothing And IsNumeric(rngZelle) Then
If rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator)
End If
End If
If Not Intersect(rngZelle, Range("B12:M12")) Is Nothing And IsNumeric(rngZelle) Then
If rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator)
End If
End If
Next rngZelle
Application.EnableEvents = True
End Sub