Array für Shapes
19.11.2004 13:42:01
RALF
ich habe ein Blatt, in dem ich 5 Ovale eingebaut habe (Symbolleiste Zeichnen)
folgende Prozedur soll alle Ovale markieren:
Sub n()
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 4) = "Oval" Then reihe = reihe & """" & sh.Name & """, "
Next sh
reihe = Left(reihe, Len(reihe) - 2)
ActiveSheet.Shapes.Range(Array(reihe)).Select
'ActiveSheet.Shapes.Range(Array("Oval 240", "Oval 241", "Oval 242", "Oval 243" _
, "Oval 244", "Oval 245")).Select
End Sub
in der deaktivierten code-Zeile steht grundsätzlich das Gleiche wie im String reihe
Warum tut der code nicht?
(wenn ich an reihe nur einen Ovalnamen übergebe, dann tuts...ich baue garantiert nur den string falsch zusammen)
Gruß RALF