Alle Makros einer Tabelle in einer Combobox
Eugen
würde gerne ein Makro erweitern, so das alle Makros in einer ComboBox zur Auswahl stehen.
wer kann helfen?
herzlichen dank
eugenS
mein kläglicher Versuch:
Sub cboMacros_Click()
Dim iRow As Integer
Dim objWB As Object
cboMacros.Clear
For Each objWB In ThisWorkbook.VBProjekt.VBComponents.CodeModule
With objWB.CodeModule
For iRow = 1 To .CountOfLines
If .ProcOfLine(iRow, 0) > "" Then
If .ProcBodyLine(.ProcOfLine(iRow, 0), 0) = iRow Then
cboMacros.AddItem .ProcOfLine(iRow, 0)
End If
End If
Next iRow
End With
Next
End Sub
und das Original von Hans Herber
Sub cboMacros_DropButtonClick()
Dim iRow As Integer
cboMacros.Clear
With ThisWorkbook.VBProject.VBComponents("BasMain").CodeModule
For iRow = 1 To .CountOfLines
If .ProcOfLine(iRow, 0) > "" Then
If .ProcBodyLine(.ProcOfLine(iRow, 0), 0) = iRow Then
cboMacros.AddItem .ProcOfLine(iRow, 0)
End If
End If
Next iRow
End With
msgbox "Makros wurden eingelesen!"
End Sub