automatische Makroaktivierung
10.08.2004 14:47:40
M.
ich habe ein Makro geschrieben, das mir auf einem Tabellenblatt eine kleine Zeichnung aus Rechtecken, Linien usw. generiert. Die Info der Abmaße der Formen erhalte ich über die Eingabe in Zellen auf dem gleichen Tabellenblatt. Mein Makro für z.B. das Rechteck 266 sieht so aus:
ActiveSheet.Shapes("Rectangle 266").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = Tabelle3.Range("S6")
Selection.ShapeRange.Height = Tabelle3.Range("B14") / 2
Um das Makro nun zu starten, habe ich mir einen Commandbutton auf das Tabellenblatt gelegt und mit dem Makro verknüpft.
Funktioniert alles prächtig,er ändert die Größe des Rechtecks entsprechend ab. Nun wäre es natürlich komfortabler wenn sich die "Zeichnung" automatisch bei Eingabe eines Wertes ändert. Dies müsste entweder durch das markieren einer anderen Zelle mit Enter, Pfeil rechts passieren oder, da ich auch Zellen mit zugeordneten Drehfeldern habe, dies mit klicken auf die Dehfeldbuttons passieren.
Somit wäre der Button "Zeichnung aktualisieren" überflüssig!
Was fehlt in meiner Anweisung?
Danke und Gruß
Mario