Office: Probleme beim ausführen eines Makros mit Formelbezug

Und mal wieder ne Frage...

Folgende Formel..

If Not Intersect(Range("R7:R96"), Target) Is Nothing Then
If Target = "x" Then MsgBox "Achtung! Sie haben einen falschen Wert im Abgabetermin!"

End If


Funktioniert wunderbar wenn ich im Feld R7:R96 ein "x" eingebe.

funktioniert gar nicht wenn dort per Formel Wenn( bla=bla;R7="x";"")
ein x eingetragen wird.
Wie kann ich ihm verklickern, das das auch über nen Formelbezug gehen soll?

Schon mal danke an Schatzi



grüße

 

Hallo!

Das "bla=bla" wäre ziemlich interessant, denn genau das könnte die alternative Abfrage sein.

 

^^

okay die Formel lautet:

WENN(M7<0;"x";"")

wobei M7 die Differenz zischen dem Zieldatum und heute ist.

Wenn diese negativ ist erscheint ein x und der Text soll erscheinen!

Grüße

 

Hallo!

Das heutige Datum ermittelst du bestimmt mit HEUTE(), oder?
Wo wird dann das Zieldatum eingegeben?
Es geht ja eigentlich nur darum: Wo geschieht die Eingabe, dass sich die Formel zu "x" ändert? In welcher Spalte?
Das wäre dann der Intersect-Bereich und man könnte weitermachen mit
If Target.Offset(0, Spaltenverschub) = "x" Then...

 

Nur mal zur Sicherheit: Hast Du mal

Code:

If Target.Value = "x" Then ...

probiert?

Gruß, Michael

 

Hallo Michael,

jetzt gerade ja, ändert aber nix

Um kurz den Aufbau des Blattes zu erläutern

K3: heute()
L7: Zieldatum, manuelle Eingabe

M7= WENN(L7="";"";TAGE360($K$3;L7;WAHR))



R7= WENN(M7<0;"x";"")

und dann das Makro:

If Not Intersect(Range("R7:R96"), Target) Is Nothing Then
If Target = "x" Then MsgBox "Achtung! Sie haben einen falschen Wert im Abgabetermin!"

End If

Das interessante ist, wenn ich in R7 manuell ein "x" eingebe, funktioniert es.


Danke...

 

Hallo!

@miriki: Die Eingabe passiert ja nicht in der Formelzelle (diese reagiert ja nur auf die Eingabe), sondern woanders, daher nützt dir die Abfrage des Targets auf "x" hier nichts.

 

Ähm...

Vielleicht steh ich ja auf'm Schlauch, aber...

In R7..Rxx steht die Formel, die ein "x" oder auch nicht erzeugt.

Target-Range wird mit Intersect überprüft, ob es im Bereich R7 bis Rxx liegt.

Auf welchen Wert soll man denn sonst überprüfen?

Gruß, Michael

 

siehe oben..

da hab ich alles etwas genauer hingeschrieben...

ein manuelles x azeptiert er, ein formel x nicht...

 

Hallo!

@miriki: Das Target liegt ja nicht im Bereich R7:Rxy, dort liegen die Formeln! Die Eingabe erfolgt woanders.
Aber wo, Gomorra?

 

das Zieldatum wird in L7 eingegeben, dann errechnet er die differenz aus K3 und L7. (in Tagen in M7). Wenn dieses dann negativ ist R7 = x.

Die Eingabe wird nur in L7 gemacht.

 

Na, dann haben wir's doch (hoffentlich):

If Not Intersect(Range("L7:L96"), Target) Is Nothing Then
If Target.Offset(0, 6) = "x" Then MsgBox "Achtung! Sie haben einen falschen Wert im Abgabetermin!"

PS: Sorry, der Beitrag, wo du das bereits beschrieben hattest, ist mir durch die Lappen gegangen...

 

Hmm..

jetzt funktioniert nicht mal nen manuelles "x".

was bedeutet denn target.Offset (0,6)?

Grüße

 

Hallo!

Ich wusste nicht, dass ein manuelles "x" weiter funktionieren soll... (damit überschreibst du doch die Formel!)

Target.Offset(0, 6) bezeichnet die Zelle, die 6 Spalten rechts von der geänderten Zelle liegt, also die Spaltendifferenz zwischen L und R.

 

aaahh jetzt funktioniert es...

darf ich dich noch um eine kleine Idee fragen?^^

Alles super, nur wie springt das Makro auch an, wenn sich nicht L7 verändert (L7<K3) sondern K3!

Sprich L7 ist z.b der 29.8.08 und ich öffne die Datei am Sonntag, K3 springt auf den 31.08.08 und das Makro erscheint.

Danke..