Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1220to1224
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
Inhaltsverzeichnis

Makro startet nicht nach Änderung

Makro startet nicht nach Änderung
davoda@gmx.de
Hallo,
ich haben ein kleines Problem mit einem Makro im Tabellenblat1. Es läuft zwar, aber leider nur wenn ich eine Änderung in irgendeiner Zelle des Blattes durchführe. Da in der Zelle, auf die sich das Makro bezieht aber eine Formel (=Zelle A1 in Tabellenblatt2) steht, führt Excel das Makro nicht automatisch bei einer Änderung in Tabellenblatt2 aus, sondern wartet damit, bis wieder eine Änderung in Blatt1 erfolgt.
Wo liegt der Fehler?
Hier mein Makro aus Tabellenblatt1:
Sub Worksheet_Change(ByVal Target As Range)
tst = Cells(6, 3).Value
ActiveSheet.Shapes("Ampel").Select
If tst 

Vielen Dank schonmal im voraus!
Gruss
Daniel

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
benutze nicht .Change sondern .Calculate kwT
07.07.2011 10:00:41
Matthias
AW: benutze nicht .Change sondern .Calculate kwT
07.07.2011 10:59:55
davoda@gmx.de
Hallo,
Wie würde die Änderung im Makro dann aussehen?
Gruss
Daniel
besser wäre aber ein Bsp. gewesen ...
07.07.2011 11:05:03
Matthias
Hallo

Da ein Nachbau meist anders aussieht als das Orginal
Dennoch:
Hier eine Variante die auch mit Change funktioniert
https://www.herber.de/bbs/user/75618.xls
Für eine gezieltere Hilfe müsste man die Datei sehen.
Gruß Matthias
übrigens <10 ist auch immer <100 oT
07.07.2011 11:07:00
Matthias
Korrektur ...
07.07.2011 11:46:07
Matthias
Hallo
ElseIf (hatte ich nicht gerafft) klappt auch ;o)


Hatte im Code übrigens hier die falsche Spalte, sorry.
Sub test()
Dim tst
Application.ScreenUpdating = False
Tabelle1.Activate
tst = Cells(6, 3).Value 'so ist es richtig
ActiveSheet.Shapes("Ampel").Select
If tst 
Gruß Matthias
Anzeige
AW: Korrektur ...
07.07.2011 13:21:18
davoda@gmx.de
Super...funktioniert klasse!!!
Danke
ohne Select und Activate
07.07.2011 13:34:16
Rudi
Hallo,
nur zur Ergänzung:
Sub test()
Dim tst As Integer
Application.ScreenUpdating = False
tst = Cells(6, 3).Value 'so ist es richtig
With Tabelle1.Shapes("Ampel").Fill
Select Case tst
Case Is 

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige