Thema Datum  Von Nutzer Rating
Antwort
01.11.2023 21:22:11 niri2506
Solved
02.11.2023 00:10:52 Gast19366
NotSolved
02.11.2023 13:52:55 niri2506
NotSolved
02.11.2023 15:19:22 Nicht Gast19366
NotSolved
02.11.2023 00:14:51 xlKing
NotSolved
02.11.2023 00:20:54 Gast19366
NotSolved
02.11.2023 13:55:33 niri2506
NotSolved
Blau Objektname erhalten
 02.11.2023 19:14:50 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
02.11.2023 19:14:50		 Views:
275		 Rating:
     
Antwort:
  Ja
Thema:
Objektname erhalten

Doch schon. Bei mir zumindest. Kannst es natürlich nochmal mit Selection.ShapeRange.Name versuchen. Kommt aufs Gleiche raus.

Keine Ausgabe gibts nur, wenn du weiterhin auf Selection_Change vertraust. Wie gesagt, startet dieses Ereignis nur beim Zellenwechsel. Du musst dein Makro also anders starten. Du kannst z.B. jedem beliebigen Shape per Rechtsklick und "Makro zuweisen", ein beliebiges Makro hinterlegen, von dem du die Weitergabe startest. In dem Zusammenhang fällt mir noch ein, dass es ja auch mit Application.Caller geht.

Das folgende Makro gibt entweder ein Rangeobjekt weiter oder eben ein Shapeobjekt. Ist das Shape eine Gruppe wird die gesamte Gruppe weitergegeben.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Weitergabe Target
End Sub

Sub BeiKlickAufShape()

   Dim shp As Shape
   
   Set shp = ActiveSheet.Shapes(Application.Caller)
   On Error Resume Next
   Set shp = shp.ParentGroup
   On Error GoTo 0
   
   Weitergabe shp

End Sub
Sub Weitergabe(obj As Object)
  
  If TypeName(obj) = "Range" Then
    MsgBox obj.Address
  Else
    MsgBox obj.Name
    If obj.Type = msoGroup Then MsgBox "Die Gruppe hat " & obj.GroupItems.Count & " Items"
  End If
  
End Sub

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
01.11.2023 21:22:11 niri2506
Solved
02.11.2023 00:10:52 Gast19366
NotSolved
02.11.2023 13:52:55 niri2506
NotSolved
02.11.2023 15:19:22 Nicht Gast19366
NotSolved
02.11.2023 00:14:51 xlKing
NotSolved
02.11.2023 00:20:54 Gast19366
NotSolved
02.11.2023 13:55:33 niri2506
NotSolved
Blau Objektname erhalten
 02.11.2023 19:14:50 xlKing
NotSolved