ich habe versucht aus verschiedenen Internetseiten ein Macro zu erstellen.
Wie meist mit nur geringen Erfolg.
Ich möchte das das Macro alle Shapes im markierten Bereich selektiert.
Leider funktioniets nicht.
Da ich VBA nur sehr wenig Ahnung habe, komme ich hier leider nicht weiter...
Sub BereichSelekt()
Dim shaShape As Shape
Dim lngShape As Long
ReDim arrShapes(0)
For Each shaShape In ActiveSheet.Shapes
If shaShape.Visible Then
Set rng = Selection
If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then
ReDim Preserve arrShapes(0 To lngShape)
arrShapes(lngShape) = shaShape.Name
lngShape = lngShape + 1
End If
End If
Next shaShape
If UBound(arrShapes()) > 0 Then
ActiveSheet.Shapes.Range(arrShapes()).Select
End If
End Sub
Vielleicht kann mich ja hier jemand unterstützen?Liebe Grüße
Stefan