AW: Alle Makro-Hotkeys auflisten
10.05.2005 10:43:35
Vjeko
Hallo Reinhard,
vielen Dank für Deine schnelle und hilfreiche Reaktion.
Ich habe den Code noch geringfügig verändert, aber
Dank Deiner Hilfe tut es nun ungefähr so wie ich es will.
Sub tt_setka1()
With Application.VBE.ActiveVBProject.VBComponents
For n = 1 To .Count
If .Item(n).Type = 1 Then
For nn = 1 To .Item(n).CodeModule.CountOfLines
If Left(.Item(n).CodeModule.Lines(nn, 1), 4) = "Sub " _
Then makro = .Item(n).CodeModule.Lines(nn, 1)
If InStr(.Item(n).CodeModule.Lines(nn, 1), "Tastenkombination:") _
And Left(.Item(n).CodeModule.Lines(nn, 1), 1) = "'" Then
Zeile = Zeile + 1
' Debug.Print makro, .Item(n).CodeModule.Lines(nn, 1)
Cells(Zeile, 1) = makro
Cells(Zeile, 2) = .Item(n).CodeModule.Lines(nn, 1)
End If
Next nn
End If
Next n
End With
End Sub
Nochmals vielen Dank und Gruß
Vjeko