Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

CommandButton per Mausklick benennen

Frage Microsoft Microsoft Office

Mitglied: Exzel

Exzel (Level 2) - Jetzt verbinden

06.07.2008, aktualisiert 15.07.2008, 4775 Aufrufe, 2 Kommentare

Hallo zusammen,

hab' mehrere CommandButtons durchzunummerieren (über 200) und wollte deshalb wissen, ob es möglich ist per Mausklick die Commandbuttons zu benennen.

Es sollen die Eigenschaften Name und Caption verändert werden. Und zwar in aufsteigender Reihenfolge nummeriert. Die Namen gestalten sich so Platz_1, Platz_2, Platz_3... und die Captions 1,2,3...

Geht das per VBA-Script?

Gruß
Mitglied: misterdemeanor
06.07.2008 um 22:44 Uhr
Hallo Exzel.

Du schreibst von CommandButtons. Demzufolge arbeitest Du mit UserForms...richtig?

In einem Deiner anderen Posts zu Deiner Platzverwaltung sieht es aber eher aus das Du diese komischen XLFormButtons verwendest. (Beziehe mich hier auf Den Thread mit dem sinnigen Namen Es ist zum Verzweifeln...

Wenn dem wirklich so ist könnte der einfachste Weg über VBA in etwa so aussehen:

01.
Public Function SetTheButtonsUp() 
02.
  Dim wb As Workbook 
03.
  Dim ws As Worksheet 
04.
  Dim s As Shape 
05.
  Dim i As Integer 
06.
      'Hier entsprechend anpassen 
07.
    Set wb = ActiveWorkbook 
08.
    Set ws = ActiveWorkbook.Sheets("Tabelle1") 
09.
    i = 1 
10.
      'Alle Elemente im Sheet durchlaufen... 
11.
    For Each s In ws.Shapes 
12.
        '...und schauen ob es sich um ein "xlButtonControl" handelt 
13.
      If s.FormControlType = xlButtonControl Then 
14.
        'so und hier könnte es kniffelig werden. Hier mal der einfachste Weg. 
15.
        s.Name = "Platz_" & i 
16.
        s.TextFrame.Characters.Text = i 
17.
          'GGfls. noch zu einem eigenen Click-Handler verweisen 
18.
        's.OnAction = "Platz_' & i ' & '_OnClick'" 
19.
        i = i + 1 
20.
      End If 
21.
    Next 
22.
    Set ws = Nothing 
23.
    Set wb = Nothing 
24.
End Function
Naja, etwas primitiv...
aber könnte ja ein erster Ansatz für Dich sein.

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: Exzel
15.07.2008 um 16:02 Uhr
Vielen Dank!

Muss den Code mal studieren


Gruß
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Visual Studio
gelöst Alternative zum Mausklick (6)

Frage von BoomBoomBen zum Thema Visual Studio ...

Batch & Shell
gelöst Von Batchdatei ausgeführten Prozess benennen (12)

Frage von itazubii zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...