Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eigenschaftsfenster per Code einblenden

Eigenschaftsfenster per Code einblenden
27.01.2005 12:31:05
Rolf
Hallo Forum,
gibt's einen Befehl,
der das Eigenschaftsfenster für Elemente
der Steuerelemente-Toolbox in Tabellenblättern
einblendet?
Herzliche Grüße
Rolf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.Controls("Ei&genschaften").Execute
bernd
mahlzeit rolf
Hilft dir das weiter?
Option Explicit
Public

Sub test()
CommandButton1.Select
With CommandBars("control toolbox")
.Controls("Ei&genschaften").Execute
.Controls("&Entwurfsmodus").Execute
'bist jetzt im entwurfsmodus
End With
End Sub

bernd
AW: .Controls("Ei&genschaften").Execute
27.01.2005 16:30:25
Rolf
Hallo Bernd,
vielen Dank, dass du mir wieder mal
aus der Klemme geholfen hast.
".Controls("&Entwurfsmodus").Execute" läuft zwar auf -
aber macht nichts, weil ich ja schon da bin,
wo ich hin wollte.
Und wenn ich dich schon einmal an der Strippe habe:
du hattest mir kürzlich eine Funktion z.V. gestellt,
die in einer zigmal verschachtelten Schleife alle
Controls auflistet.
Ich doktere immer noch daran herum,
das mit einem rekursiven Aufruf hin zu bekommen -
leider erfolglos.
Hast du vielleicht eine diesbezügliche Idee?
Nochmals danke + herzliche Grüße
Rolf
Anzeige
nur eine schleife
bernd
hallo rolf
ich weiß zwar nicht was "ein rekursiver Aufruf" ist,
aber versuch mal dies:
Option Explicit
Public

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

vieleicht hilfts dir ja weiter.
bernd
AW: nur eine schleife
29.01.2005 09:07:47
Rolf
Hallo Bernd,
vielen Dank für deine Mühe.
Die Schleife ist zwar eleganter,
bildet aber, im Gegensatz zu deiner
ersten Lösung, die Commandbar-Struktur nicht ab
und liefert auch nicht alle Controls.
Bleib' ich also bis auf weiteres bei Lösung 1.
Was den Aufruf rekursiver Funktionen angeht,
freue ich mich, mal was für dich tun zu können (s.Folder-Beispiel)
Herzliche Grüße
Rolf

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

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige