Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makros in ComboBox auflisten

Forumthread: Makros in ComboBox auflisten

Makros in ComboBox auflisten
25.04.2005 14:28:16
Matthias
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros in ComboBox auflisten
25.04.2005 14:39:43
u_
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ß
Anzeige
AW: Makros in ComboBox auflisten
25.04.2005 15:12:46
Matthias
Hallo
Der Code ist zwar interessant und erstellt auch eine Liste, aber ich bringe die Liste nicht ins DopDown Feld.
Matthias
AW: Makros in ComboBox auflisten
26.04.2005 09:47:07
Matthias
Hallo
Hat keiner eine Lösung für mich?
Grüsse Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige