|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
01.11.2023 21:22:11 |
niri2506 |
|
|
|
02.11.2023 00:10:52 |
Gast19366 |
|
|
|
02.11.2023 13:52:55 |
niri2506 |
|
|
|
02.11.2023 15:19:22 |
Nicht Gast19366 |
|
|
|
02.11.2023 00:14:51 |
xlKing |
|
|
|
02.11.2023 00:20:54 |
Gast19366 |
|
|
|
02.11.2023 13:55:33 |
niri2506 |
|
|
 Objektname erhalten |
02.11.2023 19:14:50 |
xlKing |
|
|
Von:
xlKing |
Datum:
02.11.2023 19:14:50 |
Views:
129 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
02.11.2023 00:10:52 |
Gast19366 |
|
|
|
02.11.2023 13:52:55 |
niri2506 |
|
|
|
02.11.2023 15:19:22 |
Nicht Gast19366 |
|
|
|
02.11.2023 00:14:51 |
xlKing |
|
|
|
02.11.2023 00:20:54 |
Gast19366 |
|
|
|
02.11.2023 13:55:33 |
niri2506 |
|
|
Objektname erhalten |
02.11.2023 19:14:50 |
xlKing |
|
|