Office: Automatischer Makro Aufruf nach Zelländerung

Hallo,

muss folgendes Problem lösen:

Zelle A1 enthält über Daten / Gültigkeit eine Liste von Programmen. In Abhängigkeit der Auswahl in Zelle A1, soll die dazugehörige Liste in Zelle B1 angezeigt werden. Dies gilt entsprechend für die Zeilen 2 bis unbestimmt.

Zur Lösung habe ich mir ein Makro geschrieben, welches relativ zur Cursorposition (d.h. ausgangspunkt wäre eine Zelle in Spalte A) einen Spalte nach rechts wechselt und in Abhängigkeit von dem gewählten Eintrag in Zelle A die entsprechend zugehörige Gültigkeitsleiste (die ich vorher angelegt habe) "auswählt".

Dies klappt auch prima.

Jetzt meine Frage:

Ich möchte automatisch für die Spalte A (und nur für Spalte A) einstellen, dass bei Änderung einer Zelle in dieser Spalte das oben beschriebene Makro ausgeführt wird.

Leider verstehe ich die notwendige Einträge unter "Worksheet_Change oder "Worksheet_Selction_Change" nicht, d.h. wo muss ich was eintragen, damit meine Makro immer dann ausgeführt wird, wenn ich in Spalte A eine Zelle verändere?

Ich bin super dankbar, wenn mir hier jemand helfen kann. *rolleyes.gif*

Gruß
mksuchend

:)

 

hi mk

im worksheet_change ereignis:

Code:

ungetestet müßte aber funtionieren.

für macro must du den namen deines macros was ausgeführt werden soll einsetzen.

mfg david

 

Hallo mksuchend,

Code:

Worksheet_Change wird bei Änderungen in einer Zelle ausgeführt. Ohne "Set Target = Intersect(Target, Range("A:A"))" würde jede Änderung auf dem gesamten Tabellenblatt ein Ereignis auslösen. Mit " Set Target..." wird der Bereich (hier Spalte A) festgelegt, es findet nur bei Änderungen in diesem Bereich ein Ereignis statt.

Bei Worksheet_SelectionChange findet bei jedem Zellwechsel ein Ereignis statt.

 

*Smilie
DANKE, für die tolle Unterstützung.

Habe mich für den Ansatz von "Jöke" entschieden.

Aufgrund der Tatsache, dass ich 2 Spalten auf ihren Wert zu überprüfen habe, musste ich die Zeilen etwas anpassen, wobei ich nicht sagen kann, ob dies auch einfacher gehen würde.

Code:

(Im Worksheet ist dies alles schön eingerückt und ging beim Kopieren verloren - wie kann ich dies verhindern?)

Zum besseren Verständnis und für alle, die vielleicht ähnliches machen wollen, anbei meine Datei zum Testen (TestMakro zur Listenauswahl.XLS)

Je nach Auswahl in Spalte "Programm", werden die Auswahllisten für PlanType angezeigt. Wird bei PlanType "PT_B1" ausgewählt, gibt es auch für SubType eine Auswahlliste. Wird in Spalte "Programm" der Wert gelöscht, werden auch die anderen Spalte gelöscht und die vorhandenen Listen werden ebenfalls entfernt.

Bin für Kommentare, vor allem zur Verbesserung des Codes dankbar, denn als VBA-Anfänger kann ich nicht genug dazu lernen (muss nur in der Lage sein, den Code zu verstehen).

Gruß
Meinhard

 

Moin, Meinhard,

die Forensoftware setzt die normalen Leerzeichen nur um, wenn sie zwischen zwei Zeichen stehen. Mehrere Leerzeichen werden zu einem verkürzt, führende Leerzeichen unterdrückt. Entweder Code-Tags benutzen (wurden von mir oben eingefügt) oder das geschützte Leerzeichen verwenden, das hier durch Leerzeichen getrennt dargestellt wird (alle Zeichen für 1 Leerzeichen!):

n b s p ;

Im Vertrauen: Code-Tags sind einfacher... *grins vor allem für die Nachbearbeitung...