title image


Smiley Re: Bitte, bitte....
Das muss etwas anders aussehen, nämlich am einfachsten so:



Option Explicit

Sub Shapes_markieren()

Dim sh As Shape, rngMarkiert As Range



''Falls kein Zellbereich markiert ist gibts einen Fehler

If TypeName(Selection) "Range" Then Exit Sub

''------------------------------------------------------

Set rngMarkiert = Selection

For Each sh In ActiveSheet.Shapes

If Not Intersect(sh.TopLeftCell, rngMarkiert) Is Nothing Then

sh.Select False

End If

Next

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: