gibt es eine Möglichkeit, unter VBA, alle Sub's, privat Sub's userForms auszulesen und in einem UserForm darzustellen.
Danke schon mal.
VoVo.
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