Combobox
10.02.2003 15:59:36
chris b
Private Sub cboMacros_Click()
'Variablendeklaration
Dim iRow As Integer
'ComboBox zurücksetzen
cboMacros.Clear
'Mit dem CodeModule des Moduls basMain in dieser Arbeitsmappe
With ThisWorkbook.VBProject.VBComponents("anschauen_BAW_Werte").CodeModule
'Schleife über alle Zeile des Codes
For iRow = 1 To .CountOfLines
'Wenn es sich um Programmcode handelt
If .ProcOfLine(iRow, 0) > "" Then
'Wenn es die erste Zeile der Prozedur ist
If .ProcBodyLine(.ProcOfLine(iRow, 0), 0) = iRow Then
'Der ComboBox hinzufügen
cboMacros.AddItem .ProcOfLine(iRow, 0)
End If
End If
Next iRow
End With
'Meldungw
'MsgBox "Makros wurden eingelesen!"
cb = cboMacros.Value
MsgBox ("ok")
End Sub