Formularsteuerelement DropDown

Hallo Allerseits,
ich habe eine Excel-Datei mit mehreren Worksheets.
Eines dieser Worksheets kann mehrfach kopiert vorkommen. In dem original Sheet sind mehrere Formulartseuerelemente (DropDown), die die Bezeichnung "Drop Down 11" oder "Drop Down 20" haben.
Wenn dieses Blatt kopiert wird, erhalten die Forumularsteuerelemente neue Namen. Z.B. "Drop Down 30" etc..
Ich habe einen Code, der auf allen Blättern das gleiche tut, da diese insgesamt inhaltsgleich sind. Jedoch bricht der Code ab, da er nicht auf die neuen Bezeichnungen der kopierten Blätter eingespielt ist.
Wenn er z.B. im original.Worksheet mit
Set ws = ActiveSheet
Set dd = ws.DropDowns("Dropdown 11")
arbeitet, funktioniert das nicht im kopierten.Worksheet, welches "Dropdown 30" erwartet.
Ich benötige also einen Code der zuerst erkennt, wie die korrekte Bezeichnung des ersten Formularsteuerelements im ersten Blatt ist, dann im zweiten, dann im dritten und später des zweiten Formularsteuerelements im ersten Blatt, dann im zweiten, dann im dritten etc.
Dank im Voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ich kann mit diesem Code herausfinden, wie EINE Drop-Down Box (Formularsteuerelement) auf dem Sheet heißt und die Box ansprechen.
Das ist der Code:


Dim ws As Worksheet
Dim shp As Shape
Dim firstDropdownName As String
Dim i As Integer
Dim ddb() As String
Set ws = ActiveSheet
For Each shp In ws.Shapes
    ' Check if the shape is a form control
    If shp.Type = msoFormControl Then
        ' Check if the form control is a drop-down or a combo box
        If shp.FormControlType = xlDropDown Then
            ' Get the name of the form control
            firstDropdownName = shp.name 'Liefert "Drop Down 20", nötig ist aber "DropDown 20", daher Aufteilung über dbb und Mitnahme des 2. von 3 Bestandteilen   des Arrays.
               'Den Namen aufteilen
                ddb = Split(firstDropdownName, " ")
            Exit For
        End If
    End If
Next shp
'Herausfinden, wie das erste Label heißt - Ende
überschrift = oldws.Cells(90, 2).Value
        'Deklarieren
            Dim dd As Object
        'Bestimmen
            Set ws = ActiveSheet
            Set dd = ws.DropDowns("Dropdown " & ddb(2))

Das klappt soweit gut. Ich habe drei gleichartige Sheets, die sich nur darin unterscheiden, wie die EINE und erste Drop Down Box bezeichnet ist.
Im nächsten Schritt muss ich aber mit Blättern arbeiten, die mehrere Boxen haben. Daher müsste ich ein Möglichkeit haben, nicht den Namen der ersten Box, sondern im späteren Codeverlauf auch den Namen der zweiten, dritten etc. Box herauszufeinden.
Ist es möglich den ersten "Fund" zu überspringen? Danke für alle Ideen.
Mein erster Ansatz ist die Arbeit mit Indexnummern. Jedoch drängt die Zeit und ich bin für jeden konstruktiven Input dankbar.
Grüße

Option Explicit Sub test() Dim ws As Worksheet Dim shp As Shape Dim firstDropdownName As String Dim i As Integer Dim ddb() As String Dim avntIndizes As Variant Dim ialngIndex As Long Set ws = ActiveSheet For Each shp In ws.Shapes ' Check if the shape is a form control If shp.Type = msoFormControl Then ' Check if the form control is a drop-down or a combo box If shp.FormControlType = xlDropDown Then ' Get the name of the form control firstDropdownName = shp.Name 'Liefert "Drop Down 20", nötig ist aber "DropDown 20", daher Aufteilung über dbb und Mitnahme des 2. von 3 Bestandteilen des Arrays. 'Den Namen aufteilen ddb = Split(firstDropdownName, " ") ReDim avntIndizes(ialngIndex) avntIndizes(ialngIndex) = Split(firstDropdownName, " ") ialngIndex = ialngIndex + 1 End If End If Next shp 'Herausfinden, wie das erste Label heißt - Ende '''überschrift = oldws.Cells(90, 2).Value 'Deklarieren Dim dd As Excel.DropDown 'Bestimmen Set ws = ActiveSheet Set dd = ws.DropDowns("Dropdown " & avntIndizes(2)(2)) MsgBox dd.Name End Sub

Option Explicit Sub test() Dim ws As Worksheet Dim shp As Shape Dim firstDropdownName As String Dim i As Integer Dim ddb() As String Dim avntIndizes() As Variant Dim ialngIndex As Long Set ws = ActiveSheet For Each shp In ws.Shapes ' Check if the shape is a form control If shp.Type = msoFormControl Then ' Check if the form control is a drop-down or a combo box If shp.FormControlType = xlDropDown Then ' Get the name of the form control firstDropdownName = shp.Name 'Liefert "Drop Down 20", nötig ist aber "DropDown 20", daher Aufteilung über dbb und Mitnahme des 2. von 3 Bestandteilen des Arrays. 'Den Namen aufteilen ddb = Split(firstDropdownName, " ") ReDim Preserve avntIndizes(ialngIndex) avntIndizes(ialngIndex) = Split(firstDropdownName, " ") ialngIndex = ialngIndex + 1 End If End If Next shp 'Herausfinden, wie das erste Label heißt - Ende '''überschrift = oldws.Cells(90, 2).Value 'Deklarieren Dim dd As Excel.DropDown 'Bestimmen Set ws = ActiveSheet Set dd = ws.DropDowns("Dropdown " & avntIndizes(2)(2)) MsgBox dd.Name End Sub

Option Explicit Sub test() Dim ws As Worksheet Dim shp As Shape Dim firstDropdownName As String Dim i As Integer Dim ddb() As String Dim astrIndizes() As String Dim ialngIndex As Long Dim dd As Excel.DropDown Set ws = ActiveSheet For Each shp In ws.Shapes ' Check if the shape is a form control If shp.Type = msoFormControl Then ' Check if the form control is a drop-down or a combo box If shp.FormControlType = xlDropDown Then ' Get the name of the form control firstDropdownName = shp.Name 'Liefert "Drop Down 20", nötig ist aber "DropDown 20", daher Aufteilung über dbb und Mitnahme des 2. von 3 Bestandteilen des Arrays. 'Den Namen aufteilen ddb = Split(firstDropdownName, " ") ReDim Preserve astrIndizes(ialngIndex) astrIndizes(ialngIndex) = ddb(2) ialngIndex = ialngIndex + 1 End If End If Next shp 'Herausfinden, wie das erste Label heißt - Ende '''überschrift = oldws.Cells(90, 2).Value 'Deklarieren 'Bestimmen Set ws = ActiveSheet Set dd = ws.DropDowns("Dropdown " & astrIndizes(2)) MsgBox dd.Name End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formularsteuerelement DropDown

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread