Autoformen gruppieren
20.02.2009 10:00:00
Jonatan
ich frage mich wie ich verschiedene Autoformen gemeinsam auswählen kann. Ich habe das so versucht:
For z = 1 To a
If auswahl Is Nothing Then
Set auswahl = ActiveSheet.Shapes.Range((JL(z)))
Else
auswahl = Union(auswahl, ActiveSheet.Shapes(JL(z)))
End If
MsgBox z
MsgBox JL(z)
Next z
Dabei werden die JL() vorher gefüllt. (das "a" ist auch vorher definiert). Das Problem liegt also nicht an diesem Array, sondern daran wie ich die Auswahl setzte. Ich habe "auswahl" als Range definiert. Ist das richtig?
Vielen Dank für eure Hilfe
Gruß Jonatan