Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Formel einer Zelle
28.11.2005 08:30:05
Andre
Hallo zusammen,
ich habe folgendes Problem. Ich möchte einer Zelle eine Formel zuweisen auch wenn ich einen anderen Wert in die Zelle eintrage soll die Formel noch da sein...
Jetzt möchte ich das bei der Zelle mit der Zahl "335599" folgendes gerechnet wird. 335599 - 1500 ...
und der Wert soll in der selben Zelle ausgegeben werden ...
Und wenn ich einen anderen Wert eintrage z.b. "2000" dann soll er in dieser Zelle wieder 2000 - 1500 rechnen.
Für einen kleinen Tipp wäre ich sehr dankbar.
Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel einer Zelle
28.11.2005 08:46:20
Heiko
Hallo Andre,
mit Formel wird das glaube ich nichts. Aber mit VBA geht das.
Hier ein Beispiel wie es gehen könnte, in das Codefenster der entsprechenden Tabelle. Zelle anpassen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'z.B für Zelle A1 !
If Target.Address = "$A$1" And Target.Value <> "" And IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = Target.Value - 1500
Application.EnableEvents = True
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Formel einer Zelle
28.11.2005 09:17:33
Andre
Hallo,
ja prima vielen Dank! Wie sage ich dem das er nicht minus 1500 sondern minus einer bestimmten Zelle rechnen soll z.b. A2 ?!
Grüße
AW: Formel einer Zelle
28.11.2005 09:22:01
Heiko
Hallo Andre,
dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'z.B für Zelle A1 !
If Target.Address = "$A$1" And Target.Value <> "" And IsNumeric(Target.Value) Then
Application.EnableEvents = False
' Für den Fall das der Wert zu abzeihen in Zelle A2 steht.
Target.Value = Target.Value - ActiveSheet.Range("A2").Value
Application.EnableEvents = True
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Formel einer Zelle
28.11.2005 09:26:58
Andre
Vielen Dank !
Klappt supi

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige