Thema Datum  Von Nutzer Rating
Antwort
Rot Objektname erhalten
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
02.11.2023 19:14:50 xlKing
NotSolved

Ansicht des Beitrags:
Von:
niri2506
Datum:
01.11.2023 21:22:11
Views:
482
Rating: Antwort:
 Nein
Thema:
Objektname erhalten

Hallo zusammen,

ich arbeite aktuell an einem kleineren Projekt in VBA. Um eine "Bearbeiten" Funktion einzurichten muss ich den Namen eines ausgewählten Objekts weitergeben. Bisher funktioniert die Ausgabe super für den Namen von Zellen. Wenn ich aber meine (gruppierte) Form auswähle gibt es keinerlei Ausgabe. Obwohl der Name des Objekts oben links in dem kleinen Fenster angezeigt wird. Wie könnte ich dieses Problem lösen?

Zur Erläuterung: Die Anwendung ist ein Projektmanagement Tool. Die Einsatzplanung findet auf einer Art Kanban Chart statt. Zu jedem Projekt wird eine Form (gruppiert) generiert und mit einer eindeutigen fortlaufenden ID benannt. Wenn ich jetzt eine der Kanban Karten anklicke muss ich den Namen des Objektes weiterreichen können um eine "Bearbeiten" Funktion einzurichten. Damit das sich öffnende Formular weiß aus welcher Zeile es seine Daten ziehen soll und wohin es die Änderungen dann schreiben soll. 

Hier der Code. Dieser wird dann später in dem Blatt mit der Funktion unten getriggert wenn die Auswahl geändert wird:

Sub GetSelectedObjectName()
    Dim selectedObjectName As String
    Dim obj As Object

    ' Check if something is selected
    If Not Selection Is Nothing Then
        If Selection.Count = 1 Then
            ' If a single object is selected, determine its type
            Set obj = Selection

            If TypeOf obj Is Range Then
                ' If it's a cell or range
                selectedObjectName = obj.Address
            ElseIf TypeOf obj Is shape Then
                ' If it's an individual shape
                selectedObjectName = obj.Name
            ElseIf TypeOf obj Is ChartObject Then
                ' If it's a chart
                selectedObjectName = obj.Name
            End If
        ElseIf Selection.Count > 1 Then
            ' Check if a grouped shape is selected
            If TypeName(Selection(1)) = "GroupObject" Then
                ' If it's a grouped shape
                selectedObjectName = "Grouped Shape"
            End If
        End If
    End If

    ' Display the name in a message box
    If selectedObjectName <> "" Then
        MsgBox "Selected Object Name: " & selectedObjectName
    Else
        MsgBox "No object selected."
    End If
End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Call GetSelectedObjectName
    
End Sub
 


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
Rot Objektname erhalten
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
02.11.2023 19:14:50 xlKing
NotSolved