Target Change / BeforeDoubleClick
Alex
ich hänge irgendwie am Verständniss... Ich möchte in eine Zelle eine Anzahl eingeben, die bei verlassen der Zelle in einen Betrag umgerechnet wird. Soweit funktioniert das auch. Wenn ich nun ein eine Zelle die bereits einen Betrag umgerechnet hat mit einer neuen Anzahl überschreiben möchte, wird nicht mehr gerechnet. Kann mir jemand helfen?
Den "sinnlosen" Code hab ich weggelassen :-)
Mit irgeneiner Abfrage möchte ich quasi der Zelle mitteilen, wenn format "#,##0.00 $" dann prüfe ob bereits ein Wert vorhanden ist lösche oder überschreibe Ihn mit der neuen Eingabe (Anzahl) und dann wieder umrechnen.
Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column) * Cells(Target.Row, 3).
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = "" Then Exit Sub
If Target.NumberFormat = "0" Then
Target.NumberFormat = "#,##0.00 $"
Target.Interior.ColorIndex = 0
Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column) * Cells(Target.Row, 3)
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target = "" Then Exit Sub
Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column) / Cells(Target.Row, 3)
Target.NumberFormat = "0"
Target.Interior.ColorIndex = 34
End Sub