Zelle Multiplizieren

[akay1212]

Hallo, kann mir jemand weiterhelfen? ich möchte eine Zelle so formatieren, dass wenn ich eine "1" in die Zelle schreibe, dann mit 24 Multipliziert wird. BSP: Schreibe "1" in die Zelle, mit Bestätigung wird dann 24 gezeigt.

2-48
3-72 usw. Geht das??

[Crazy Tom]

Hallo

dazu fällt mir eigentlich nur ein Makro ein

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then
       Application.EnableEvents = False
       If IsNumeric(Target.Value) Then Target.Value = Target.Value * 24
       Application.EnableEvents = True
   End If
End Sub

MfG Tom

[akay1212]

ok, danke.

Wie gehe ich denn da weiter vor um das einzubinden??

[atilla]

Hallo,
 
Rechtsklick auf den Tabellenreiter in dem das passieren soll, dann im erscheinenden Kontextmenü Code anzeigen wählen und den Code aus dem Beitrag von Tom hinein kopieren.
Beim schließen der Datei dies mit Makros speichern im .xlsm Format.