dynamischer Array ist mein Problem
19.11.2004 15:36:51
RALF
Moin,
genau das ist mein Problem...ich bekomme den Array nicht gefüllt.
Will ich das über den unten stehenden code machen und .select ausführen, dann meckert die Kiste. Will ich mit dem Array gleich alles ausblenden, meint Excel es ist Feierabend und schmiert ab.....das werden ich dann für die Woche auch tun...
-----------------------------------------------------------------
Beitrag von vorhin:
Moin,
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
----------------------------------------------
Schönes Wochenende
Gruß RALF