Thema Datum  Von Nutzer Rating
Antwort
08.04.2019 10:41:15 Floris
NotSolved
08.04.2019 11:00:48 Gast19579
NotSolved
Rot Button1 bis Button100 ansprechen
 08.04.2019 21:38:43 Gast13455
Solved
09.04.2019 08:41:57 Floris
NotSolved

Ansicht des Beitrags:
Von:
Gast13455		 Datum:
08.04.2019 21:38:43		 Views:
420		 Rating:
     
Antwort:
 Nein
Thema:
Button1 bis Button100 ansprechen

Hallo,

für eine ausgewählte Anzahl nur per Schleife, in der Art:

Option Explicit

Public Sub test()
   Const BUTTON_MAX As Long = 100
   Dim astrArray(BUTTON_MAX - 1) As String
   Dim ialngIndex As Long
   For ialngIndex = 1 To BUTTON_MAX
        astrArray(ialngIndex - 1) = "CommandButton" & ialngIndex
   Next
   Call ActiveSheet.Shapes.Range(astrArray()).Select
End Sub

Gruß,

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
08.04.2019 10:41:15 Floris
NotSolved
08.04.2019 11:00:48 Gast19579
NotSolved
Rot Button1 bis Button100 ansprechen
 08.04.2019 21:38:43 Gast13455
Solved
09.04.2019 08:41:57 Floris
NotSolved