gibt's einen Befehl,
der das Eigenschaftsfenster für Elemente
der Steuerelemente-Toolbox in Tabellenblättern
einblendet?
Herzliche Grüße
Rolf
Sub test()
CommandButton1.Select
With CommandBars("control toolbox")
.Controls("Ei&genschaften").Execute
.Controls("&Entwurfsmodus").Execute
'bist jetzt im entwurfsmodus
End With
End Sub
Sub zeig_alle()
Dim l As Long
Dim k As Long
k = 1
For l = 1 To 32000
On Error Resume Next
With CommandBars.FindControl(ID:=l)
Cells(k, 1) = .Caption
If Err = 91 Then GoTo weiter
Cells(k, 2) = "ID:= " & .ID
Cells(k, 3) = .Parent.NameLocal
End With
k = k + 1
weiter:
Next
End Sub
Sub test_allfolders()
Dim r As String
Dim A As Variant
r = ThisWorkbook.Path & "\"
A = allfolders(r)
MsgBox Join(A, vbCrLf)
End Sub
Function allfolders(foldspec)
Static x()
Static i As Long
Dim fs, f, f1, fc
Dim n As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(foldspec)
Set fc = f.SubFolders
n = fc.Count
For Each f1 In fc
If n > 0 Then i = i + 1
ReDim Preserve x(i)
x(i) = foldspec & f1.Name
allfolders (x(i) & "\") 'rekursiver Funktionsaufruf!!!
Next
allfolders = x
End
Function