Guten Morgen,

ich habe ein Makro erstellt, indem mehrere Shapes gruppiert werden. in jeder Gruppierung ist ein Listenfeld enthalten, welches ich beschreiben will.
Nun stellt sich für mich die Frage, wie man das Listenfeld anspricht, um es zu beschreiben. bei allen anderen Gruppierungen ging das immer problemlos.

habe sowohl für alle Shapes als auch für alle Gruppierungen Namen vergeben und kann sie exakt ansprechen!
Sub ohne Gruppierung:
For i1 = 0 To 80
     If aktionsArray(i1) <> "" Then
         ActiveSheet.ListBoxes("Listbox" & iWert).AddItem aktionsArray(i1)
     End If
Next i1

 

suche nun mit Gruppierung einen funktionierenden Code wie dieser:

For i1 = 0 To 80
     If aktionsArray(i1) <> "" Then
         ActiveSheet.Shapes("Group" & iWert).GroupItems("Listbox" & iWert).AddItem aktionsArray(i1)    'diese Codezeile ist nicht funktionsfähig!!!
     End If
Next i1
ich bitte um Hilfe! danke schon mal im Vorraus!