Option Explicit
'Alle Makros in eine Textdatei
Public Sub test()
Call Code_Kopieren(Workbooks("Makrohandling.xls"))
End Sub
Private Sub Code_Kopieren(ByVal Datei As Workbook)
Dim VBEobj As Object, zeile As Integer, item As Variant, zaehler As Integer
Open "D:\Eigene Dateien\Eigene Tabellen\TestText.txt" For Output As #1
Print #1, Datei.Name
Leerzeile 2
For Each VBEobj In Datei.VBProject.VBComponents
With VBEobj.CodeModule
zaehler = 0
For zeile = 1 To .CountOfLines
If Trim(.Lines(zeile, 1)) <> "" Then zaehler = zaehler + 1
Next
If zaehler > 1 Then
Print #1, VBEobj.Name & ":"
Leerzeile 2
For zeile = 1 To .CountOfLines
If Trim(.Lines(zeile, 1)) <> "" Then Print #1, .Lines(zeile, 1)
Next
Leerzeile 3
End If
End With
Next
Print #1, "Verweise:"
Leerzeile 2
Set VBEobj = Datei.VBProject.References
For Each item In VBEobj
Print #1, item.Description
Next
Leerzeile 3
Print #1, String(200, "-")
Leerzeile 3
Close #1
End Sub
Aber ich denke VoVo wollte es so in der Art, wobei das auch nur als Ansatz gedacht ist.
https://www.herber.de/bbs/user/5350.xla
Gruß
Nepumuk