Herbers Excel-Forum - das Archiv

Makros in ComboBox auflisten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makros in ComboBox auflisten
von: Matthias

Geschrieben am: 25.04.2005 14:28:16
Hallo Leute
Ich möchte alle Makros in einer ComboBox auflisten. Ich will ein bestimmtes Makro aus der Liste auswählen und seinen Namen in einer Stringvariable speichern können.
Kann mir jemand sagen wie ich das machen könnte?
Grüsse Matthias
Bild

Betrifft: AW: Makros in ComboBox auflisten
von: u_

Geschrieben am: 25.04.2005 14:39:43
Hallo,
mal als Anregung:
Private Sub Makroliste()
Dim vbc As Object, sh As Worksheet
Dim iRow As Integer, iCol As Integer, iCounter As Integer
Set sh = ActiveWorkbook.Sheets(1)
sh.Cells.Clear
iRow = 1
iCol = 1
For Each vbc In ActiveWorkbook.VBProject.VBComponents
With vbc.CodeModule
For iCounter = 1 To .CountOfLines
If .ProcOfLine(iCounter, 0) > "" Then
If Trim(.Lines(iCounter, 1)) Like "Sub *" Then
sh.Cells(iRow, iCol).Value = .ProcOfLine(iCounter, 0)
iRow = iRow + 1
End If
End If
Next iCounter
End With
Next vbc
sh.Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
sh.Columns.AutoFit
End Sub

Gruß
Bild

Betrifft: AW: Makros in ComboBox auflisten
von: Matthias
Geschrieben am: 25.04.2005 15:12:46
Hallo
Der Code ist zwar interessant und erstellt auch eine Liste, aber ich bringe die Liste nicht ins DopDown Feld.
Matthias
Bild

Betrifft: AW: Makros in ComboBox auflisten
von: Matthias
Geschrieben am: 26.04.2005 09:47:07
Hallo
Hat keiner eine Lösung für mich?
Grüsse Matthias
 Bild
Excel-Beispiele zum Thema "Makros in ComboBox auflisten"
Start des Makros nach Laden der Arbeitsmappe Makros in Abhängigkeit vom Zellennamen aufrufen
Makros zeitgesteuert aufrufen CommandBar in Abhängigkeit vorhandener Makros erstellen
Makrostart bei Auswahl einer Zelle in Zeile 3 Makros aus einem Standardmodul in ComboBox einlesen
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden