Makro ausführen bei Wertänderung in Zelle :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Makro ausführen bei Wertänderung in Zelle

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

Autor

Nachricht

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 10.09.2008, 09:09

Hallo,

möcht folgendes Makro ausführen, wenn der Wert in D2 (Tabelle2) sich ändert

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Verlasse den Code, wenn die geänderte Zelle nicht B7 ist:
If Target.Address <> "$D$2" Then Exit Sub
Range("E1:E14").Select
Range("E1:E14").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1:F14"), Unique:=True
End Sub

allerding tut sich nicht´s, da der Wert aus Tabelle1 kommt (in D2 steht =Tabelle1!B11). Den Code im Blatt ausführen, mittels Button, ist kein Problem. Der Code befindet sich im Blatt2.
Wo ist der Fehler?

für sachdienliche Hinweise dankbar, silex1

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 10.09.2008, 11:17

Hallo!

Worksheet_Change springt dann an, wenn eine Zelle MANUELL geändert wird. Bei dir ändert sich die Zelle aber durch eine Berechnung.

_________________

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 und hilft sicher gerne weiter!

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 10.09.2008, 12:30

Hallo Schatzi,

wieder was gelernt, aber noch verwirrter!
Kannst Du mir bitte den Code anpassen, da ich von VBA wenig Ahnung hab, und nicht weis, wie und was ich verändern müsste. Den die Filterung ist auch mit dem Recorder aufgezeichnet.

lg silex1

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 10.09.2008, 12:38

Hallo!

Änderst du denn Tabelle1!B11 manuell?
Dann hilft (hoffentlich) dieser Code im Modul von Tabelle1:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$11" Then Exit Sub
Sheets("Tabelle2").Range("E1:E14").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Tabelle2").Range("F1:F14"), Unique:=True
End Sub

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 10.09.2008, 13:15

Hallo Schatzi,

DANKE; DANKE; DANKE!
Und woher wusstest Du (daher ein riesen Schatz) , dass ich B11 manuell ändere? Supie!

lg silex1

023.gif

Beschreibung:

Dateigröße:

8.56 KB

Angeschaut:

293 mal

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

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

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Anpassung von Diagrammen per Makro?	gassi83	Microsoft Excel Hilfe	0	19.12.2008, 12:31
	Makro Rückgängig	floater	Microsoft Excel Hilfe	3	12.12.2008, 01:00
	Innerhalb einer Zelle suchen und erse...	Exl121150	Microsoft Excel Hilfe	7	08.12.2008, 16:48
	Inhalt eines Kombinationsfeld in Zell...	Nicki11	Microsoft Excel Hilfe	4	01.12.2008, 19:00
	Eingabewert in selber Zelle mit feste...	senna94	Microsoft Excel Hilfe	1	28.11.2008, 13:13

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