Herbers Excel-Forum - das Archiv

Bezugszeile löschen und Wert behalten??

Bild

Betrifft: Bezugszeile löschen und Wert behalten??
von: Lucka
Geschrieben am: 03.11.2003 16:06:04
Hallo,
mein Problem ist folgendes:
Hab eine einfache Formel: E34-(E34*F34)
Muss aber durch ein Makro F34 auf Null setzen, da anschliessend niemand die Prozentzahl in F34 sehen darf. Natürlich verändert sich dann der berechnete Wert! Was kann ich machen, dass der Wert trotzdem gleich bleibt?
Vielen Dank im Voraus
Lucka

Bild

Betrifft: AW: Bezugszeile löschen und Wert behalten??
von: Andreas Walter
Geschrieben am: 03.11.2003 16:12:18
Deine Formel ist in z.B. A3

Dann schreib in Deinem Makro
Cells(3,1).value=Cells(3,1).value
oder
[A3].value=[A3].Value (glaube ich)
Dann erst F34 auf Null setzen

Durch o.g. Befehl wird die Formel in A3 durch den Wert in A3 ersetzt
Bild

Betrifft: AW: Bezugszeile löschen und Wert behalten??
von: ChrisL
Geschrieben am: 03.11.2003 16:33:54
Hi Lucka

Siehe Anhang...
https://www.herber.de/bbs/user/1726.xls

Option Explicit



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$E$34" Then
If IsNumeric(Target) = False Then
MsgBox "Wert muss nummerisch sein."
Target = ""
Target.Select
Exit Sub
End If
Range("F31") = Range("E34") - (Range("E34") * Range("I34"))
End If
If Target.Address = "$F$34" Then
If IsNumeric(Target) = False Then
MsgBox "Wert muss nummerisch sein."
Target = ""
Target.Select
Exit Sub
End If
Range("I34") = Target
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
Range("F31") = Range("E34") - (Range("E34") * Range("I34"))
End If
End Sub



Gruss
Chris
Bild