Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Button suchen | Herbers Excel-Forum


Betrifft: Button suchen von: Specke
Geschrieben am: 28.10.2008 10:50:08

Hallo Experten,

ich habe von einem Kollegen eine Altlast übernommen und möchte diese überarbeiten.

Der VBA-Code ist unkommentiert und die Buttons heißen CommandButton1... :-(

Kann ich im VBA-Code ein Steuerelement auswählen und dieses dann auf dem Tabellenblatt suchen lassen?

Danke und Gruß
Specke

  

Betrifft: AW: Button suchen von: Beverly
Geschrieben am: 28.10.2008 11:02:42

Hi,
diesen Code im Einzelschrittmodus ablaufen lassen

Sub Button_markieren()
   Dim ooElement As OLEObject
   For Each ooElement In ActiveSheet.OLEObjects
      If ooElement.progID = "Forms.CommandButton.1" Then ooElement.Select
   Next ooElement
End Sub



GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Button suchen von: Uwe (:o)
Geschrieben am: 28.10.2008 11:03:11

Hi Specke,
warum nicht einfach mit:
CommandButton3.Activate
???
Oder verstehe ich Dich falsch?

Gruß
Uwe
(:o)


  

Betrifft: AW: Button suchen von: Reinhard
Geschrieben am: 28.10.2008 11:35:00

Hi Specke,

Sub tt()
Dim S As OLEObject, wks As Worksheet, Zei As Long
Set wks = ActiveSheet
Worksheets.Add
With ActiveSheet
For Each S In wks.OLEObjects
   If S.Name Like "Command*" Then
      Zei = Zei + 1
      .Cells(Zei, 1) = S.TopLeftCell.Address
      .Cells(Zei, 2) = S.Name
      .Cells(Zei, 3) = S.Object.Caption
   End If
Next S
End With


Gruß
Reinhard


  

Betrifft: Vielen Dank! von: Specke
Geschrieben am: 28.10.2008 12:17:02

Hallo,

vielen Dank für Eure Hilfe!
So habe ich herausgefunden, dass es einige Steuerelemente nicht mehr gibt.

Gruß Specke


Beiträge aus den Excel-Beispielen zum Thema "Button suchen"