hat denn niemand einen tip?
24.03.2009 18:29:07
Makrigiannis
hallos leute,
bräuchte mal wieder einen weisen rat....hab folgeneden code einer excell tabelle hinterlegt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Const Multiplikator1 As Currency = 13
Const Multiplikator2 As Currency = 42
Const Multiplikator3 As Currency = 14
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Range("B5:M5, B8:M8, B11:M11")) Is Nothing And IsNumeric( _
rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator1)
End If
If Not Intersect(rngZelle, Range("B6:M6, B9:M9, B12:M12")) Is Nothing And IsNumeric( _
rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator2)
End If
If Not Intersect(rngZelle, Range("B7:M7, B10:M10,B13:M13")) Is Nothing And IsNumeric( _
rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator3)
End If
Next rngZelle
Application.EnableEvents = True
End Sub
ist es möglich, daß wenn ich mit dem curser über die zellen geh,mir der eingebene wert in einem kleinen fenster oder in einer anderen zelle angezeigt wird.
wenn ich also in der zelle B7 den wert 10 eingebe,wird dieser mit dem multiplikator 3 (wert 14) multipliziert.nun soll in einem extra kleinen fenster/box der wert 10 angezeigt...
danke
Anzeige