AmpelMakro von Hajo Ziplies u. Peter Haserodt
14.10.2005 14:34:05
Hajo
habe mir das AmpelMakro von Hajo Ziplies und Peter Haserodt angepasst....
Alles funktioniert prima und an dieser Stelle möchte ich nochmal sagen, dass das Dingchen ein echter Hammer ist - habe echt Spaß damit.
Eine Frage nur, da ich mich mit VBA noch nicht sehr lange beschäftige. In meinem Makro lasse ich die Ovals einfügen. Vorher wird aber das gesamte Blatt inkl. aller Ovals gelöscht. Jetzt frage ich mich ob ich mit der Kennung der Ovals Probleme bekommen könnte. Im Moment stehen die schon bei Oval200. Obwohl ich immer nur 5 Ovals einfügen lassen. Ich hab schon versucht denn Kenner wieder auf 1 zu bekommen - klappte aber nicht....könnte mit deshalb nochmal jemand diese Zeile hier erklären? Verstehe nicht warum der nach dem löschen nicht wieder mit Oval1 anfängt.....
For InI = 1 To Shapes.Count
' Namen des Steuerelementes prüfen
If Mid(Shapes(InI).Name, 1, 4) = "Oval" Then etc...
Vielen Dank Euch & schonmal ein schönes und erholsames Wochenende!
Mola