multiplikation mit vba

Question

hallöchen,

also ich habe folgendes problem:
ich habe unter excel eine tabelle angelegt und möchte z.B. der zelle B5 eine funktion zuweisen. B5 soll einen festen wert haben ( preis eines produktes z.B. 13 €) und wenn ich in die zelle einen weiteren wert eintrage (verkaufte stückzahl),soll mir in der selbenzelle (B5) das ergebnis ( stückzahl x 13 € ) angezeigt werden.hoffe ich habe es verständlich geschildert.
mit anderen worten soll der eingegene wert in der selben zelle errechnet und ausgegeben werden.
vielen dank im vorraus

janni

Answer 1

hab jetzt die lösung , falls es jemanden intressiert:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const Multiplikator As Currency = 13

If Target.Address = "$B$5" And IsNumeric(Target) Then
Application.EnableEvents = False
If Target > 0 Then
Target = CCur(Target * Multiplikator)
End If
Application.EnableEvents = True
End If
End Sub

damit funzt es....