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
Rot Objektname erhalten
 02.11.2023 00:14:51 xlKing
NotSolved
02.11.2023 00:20:54 Gast19366
NotSolved
02.11.2023 13:55:33 niri2506
NotSolved
02.11.2023 19:14:50 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
02.11.2023 00:14:51		 Views:
287		 Rating:
     
Antwort:
  Ja
Thema:
Objektname erhalten

Hi Niri,

so weit ich sehen kann liegt dein Problem hier: ElseIf TypeOf obj Is shape. Ja letztendlich ist es immer ein Shape aber in erster Linie hat jede Form ihren eigenen Typ. Natürlich kannst du nicht nach jedem möglichen Typ abfragen. Aber das musst du auch nicht. Entweder es ist ein Range oder eben nicht. Was anderes gibt es nicht. Insofern brauchst du nur auf den Range zu prüfen wenn du .Address zurückgeben willst, und in jedem anderen Fall gibst du  halt .Name zurück. Probier mal den folgenden Code:

Sub Test()

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

Den zweiten If-Block mit "Die Gruppe hat..." kannst du natürlich wieder rausschmeißen, wenn du das nicht brauchst.

Übrigens: Selection_Change funktioniert nur mit einem Zellenwechsel, nicht aber, wenn du eine Form markierst. So wie du es momentan hast wird GetSelectedObjectName schlicht nicht aufgerufen, wenn du eine Gruppe anwählst.

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
Rot Objektname erhalten
 02.11.2023 00:14:51 xlKing
NotSolved
02.11.2023 00:20:54 Gast19366
NotSolved
02.11.2023 13:55:33 niri2506
NotSolved
02.11.2023 19:14:50 xlKing
NotSolved