HERBERS Excel-Forum - das Archiv
Thema: Steuerelemente aus VBA aufzeigen | Herbers Excel-Forum
Steuerelemente aus VBA aufzeigen
Rainer
Hallo,
möchte den Aufbau (zugewiesene Namen der Steuerelemente) meiner Tabellen überprüfen.
Könnte mir zwar die gesamten Codezeilen ausdrucken lassen, denke aber mal, dass es sicher noch eine andere Möglichkeit gibt, mir nur die Namen der Button's aller Arbeitsblätter anzeigen zu lassen.
Kann mir da wer einen Tip geben?
Gruß Rainer
AW: Steuerelemente aus VBA aufzeigen
ransi
HAllo Rainer
Da kannst du z.B. so rangehen:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Sub test()
Dim wsTMP As Worksheet
Dim sh As Object
Dim Z As Long
Dim oleObj As Object
Set wsTMP = Worksheets.Add(after:=Sheets(Sheets.Count))
wsTMP.Name = "Auflistung"
For Each sh In Sheets
For Each oleObj In sh.OLEObjects
Z = Z + 1
With wsTMP
.Cells(Z, 1) = sh.Name
.Cells(Z, 2) = oleObj.progID
.Cells(Z, 3) = oleObj.Name
End With
Next
Next
End Sub
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Sub test()
Dim wsTMP As Worksheet
Dim sh As Object
Dim Z As Long
Dim oleObj As Object
Set wsTMP = Worksheets.Add(after:=Sheets(Sheets.Count))
wsTMP.Name = "Auflistung"
For Each sh In Sheets
For Each oleObj In sh.OLEObjects
Z = Z + 1
With wsTMP
.Cells(Z, 1) = sh.Name
.Cells(Z, 2) = oleObj.progID
.Cells(Z, 3) = oleObj.Name
End With
Next
Next
End Sub
ransi
AW: Steuerelemente aus VBA aufzeigen
Rainer
Hallo Ransi,
klappt einwandfrei.
Danke
Rainer
Excel-Beispiele