AW: Mehrere Buttons im Sheet-ein Code >> hier
15.10.2003 08:21:37
Dan
Hallo Heinz,
Wie ist es gamacht : in die ausgewahlten Zellen zugibt es die Buttons (Excel Buttons)
die gleich gross und breit wie die Zellen sind. Jeder der Buttons ist mit einer und der selben Procedur verbunden. Wenn der Benutzer einen von der Buttons druckt, dann wird die Cursor Position gespeichert. Dann werden alle Button in eine Schleife durchgegangen und es wird getestet, ob die Cursor Position in dem gerade getesteten Buttons-Bereich liegt und somit wird der benutzte Button ermittelt. Es ist dann eine Procedur gestartet, die als Parameter den gedruckten Button einnimmt und "etwas" macht. Was genau das "etwas" ist, kann sich jeder umschreiben je nach dem was fur Bedurfnisse er hat. Jetzt als Beispiel habe ich eine Selection der Zellen an der rechten Seite und unter dem Button eingebaut, aber wie gesagt, man kann (und sollte) sich diese Prozedur selber umschreiben :-).
Was es macht : etwas habe ich schon geschrieben. Also es zugibt die Excel Buttons in die ausgewahlten Zellen und identifiziert den gedruckten Button und startet dann eine Prozedur, die man sich so umschreiben sollte dass es das macht was man braucht. Ausser dem kann man die Buttons noch loschen. Loschen kann man entweder alle Buttons auf einmal oder nur einigen davon. Wenn man nur einige Buttons loschen will, sollte man einfach die Zellen auswahlen, die um die Buttons die man loschen will liegen, oder die direkt unter der Buttons liegen. Wenn man es als AddIn benutzt, wird beim offnen des AddIns eine neue CommandBar gebildet. Diese CommnadBar hat drei Buttons. Mit dem ersten kann man die Buttons ins Sheet zugeben. Mit dem zweiten kann man alle Buttons im Sheet wieder loschen und mit dem dritten Button kann man nur einigen Button loschen.
Ich schicke es Dir in der Form von
Text(https://www.herber.de/bbs/user/1427.txt). Ich habe es unter Excel97(mit win2000) und Excel2000(mit winNT) geteste und es sollte auch unter anderen Excel und Windows versionen laufen :-)
Gruss Dich, Dan [mailto : dusek@cb.vakjc.cz]