Probleme beim ausführen eines Makros mit Formelbezug :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Probleme beim ausführen eines Makros mit Formelbezug

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 13:09

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

Razz

grüße

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 28.08.2008, 14:46

Hallo!

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 14:50

^^

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 28.08.2008, 14:57

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...

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 435
Wohnort: Kiel

Verfasst am: 28.08.2008, 15:08

Gomorra hat Folgendes geschrieben:

If Target = "x" Then ...

Nur mal zur Sicherheit: Hast Du mal

Code:

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

probiert?

Gruß, Michael

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 15:18

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...

Zuletzt bearbeitet von Gomorra am 28.08.2008, 15:25, insgesamt 4-mal bearbeitet

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 28.08.2008, 15:19

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.

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 435
Wohnort: Kiel

Verfasst am: 28.08.2008, 15:24

schatzi hat Folgendes geschrieben:

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

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 15:26

siehe oben..

da hab ich alles etwas genauer hingeschrieben...

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 28.08.2008, 15:28

Hallo!

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

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 15:32

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 28.08.2008, 15:43

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...

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 15:53

Hmm..

jetzt funktioniert nicht mal nen manuelles "x".

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

Grüße

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 28.08.2008, 16:00

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.

Gomorra
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 49

Verfasst am: 28.08.2008, 16:06

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..

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Farbe beim Feld Vernüpfen übernehmen?	HALi	Microsoft Excel Hilfe	2	19.11.2008, 10:10
	[Excel 2002] Farbliche Darstellung nu...	Screather	Microsoft Excel Hilfe	4	16.11.2008, 09:11
	Teile eines Arrays können nicht geänd...	lipi	Microsoft Excel Hilfe	1	07.11.2008, 10:24
	Formatierung beim Öffnen komplett anders	daiwaman	Microsoft Excel Hilfe	0	05.11.2008, 10:03
	Probleme beim Start /Farbtiefe ändert...	neotask	Microsoft Outlook Hilfe	0	04.11.2008, 08:18

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de