Makros auslesen

Claudia · 1970-01-01T00:00:00+00:00

Hallo zusammen, ich brauche die Hilfe der VBA-Experten. Ich benötige ein Makro, was wiederrum alle Makros der aktiven Datei ausliest (also Module, Tabellen, Arbeitsmappe usw). Ich würde dann die Makrodatei und die auszulesende Datei öffnen und das Makro dann starten. So sollte es dann aussehen in dem Tabellenblatt "Übersicht" aussehen, wo das Makro gespeichert ist. Dateiname - Ort des Makros - Makroname - Makroinhalt Tabelle1 Modul 1 Test Sub Test().... Hat jemand sowas schon einmal gemacht bzw. kann mir da jemand helfen? Vielen lieben Dank! Liebe Grüße Claudia

Option Explicit

Sub MakroListe()
   Dim vbc As Object, iRow As Integer, iCol As Integer, iCounter As Integer, sMacro As String
   Dim sMakroCode As String
   Dim myWB As Workbook, aktivSH As Worksheet
   Dim LLetzte As Long
   Dim objCom As Comment
   

   Set aktivSH = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    
   On Error Resume Next
    LLetzte = aktivSH.Cells.Find("*", , xlValues, 2, 1, 2, False, False, False).Row
   On Error GoTo 0
   
   LLetzte = IIf(LLetzte = 0, 1, LLetzte + 2)
   
   For Each myWB In Workbooks
    If myWB.Name <> ThisWorkbook.Name Then Exit For
   Next myWB
   
   'Verzichte mal auf Überprüfung ob Registname zulässig ist 
   On Error Resume Next
    aktivSH.Name = myWB.Name 'Namen der Tabelle vergeben 
   On Error GoTo 0
    
   aktivSH.Rows(LLetzte).Font.Bold = True
   aktivSH.Cells(LLetzte, 1).Value = "Datei- Name"
   aktivSH.Cells(LLetzte + 1, 1).Value = myWB.Name
   
   iCol = 1
   
   For Each vbc In myWB.VBProject.VBComponents
      iRow = LLetzte
      iCol = iCol + 1
      aktivSH.Cells(iRow, iCol).Value = vbc.Name
            With vbc.CodeModule
               For iCounter = 1 To .CountOfLines
                  If .ProcOfLine(iCounter, 0) > "" Then
                     sMacro = .ProcOfLine(iCounter, .CountOfLines)
                     
                     If sMacro <> aktivSH.Cells(iRow, iCol) Then
                
                        sMakroCode = .Lines(iCounter, .CountOfLines)
                        
                        If sMakroCode Like "*End Sub*" Then
                         sMakroCode = Left$(sMakroCode, InStr(sMakroCode, "End Sub") + 6)
                        End If
                        If sMakroCode Like "*End Function*" Then
                         sMakroCode = Left$(sMakroCode, InStr(sMakroCode, "End Function") + 11)
                        End If
                        
                        iRow = iRow + 1
                        aktivSH.Cells(iRow, iCol).Value = sMacro
                        
                        'Kommentar erstellen 
                        If sMakroCode <> "" Then
                         sMakroCode = Trim$(sMakroCode)
                         Set objCom = aktivSH.Cells(iRow, iCol).AddComment(sMakroCode)
'                         objCom.Shape.DrawingObject.Font.Size = 12 'Schriftgröße Kommentar 
                         objCom.Shape.DrawingObject.AutoSize = True
                         sMakroCode = ""
                        End If
                     End If
                  
                  End If
               Next iCounter
            End With
    Next vbc

    aktivSH.Columns.AutoFit

End Sub

...PgmDokumentation wichtig, Claudia;
das habe ich auch mal so gelernt! Aber für manchen Pgmierprofi ist VBA ja eh nur Pillepalle bzw "Lockerungsübung"... ;-)
Als ich vor einigen Jahren ebenfalls vor dieser Situation stand, habe ich ein vglbares Pgm geschrieben, das allerdings erheblich länger war als Tinos Angebot, weil noch Diverses gezählt und ausgewertet wdn musste. Hierbei ging es in 1.Linie um udFktt, die auch in anderen Prozeduren verwendet werden. Diese ggseitigen Abhängigkeiten mussten festgestellt wdn; die inhaltliche Abbildung dagegen war nicht wichtig, weil die Prozz in AddIns konzentriert sind (so etwas ist evtl zukünftig auch bei dir fallweise möglich...). Eine Einsatzzweck- und Fktsbeschreibung war hier ausreichend.
ProzzRedundanzen lassen sich so allerdings nicht automatisiert feststellen. Hier ist wahrscheinlich Begutachtung durch einen Profi erforderlich. Erleichtert würde so etwas durch einen Kommentar, der jeder einzelnen Proz vorangestellt wird. Den könnte man mittels Pgm (Tino hat das sicher drauf!) auslesen und in der Dokumentation separat anzeigen. Umgekehrt könnte man mit einer anderen Proz solche Kommentare in den CodePanes ergänzen. Außerdem halte ich es für sinnvoll, hier evtl auch Versionsnr (bei mehreren Varianten) u/o Erstellungs-/Änderungsdatum anzugeben. Das alles könnte auch als Basis für eine qualifizierte ProzHilfe dienen. Bis xl11 fkt das auch noch mit dem downloadbaren MS-Tool für HTML-basierte komprimierte Hilfedateien (...chm).
Sinn macht die ganze Arbeit erst dann richtig, wenn zukünftig auch die Dok gepflegt wird und das nicht eine 1malige Aktion bleibt.
Übrigens hatte ich damals auch eine direkt im TabBlatt einsetzbare udFkt geschrieben, die die Namen und Zeilenzahl aller FktProzz aus bestimmten bzw allen Modulen angebbarer Projekte wiedergibt...
Deshalb halte auch ich dein Anliegen nicht nur für legitim, sondern auch für rational - Hptsache es fktniert ist keine rationale Herangehensweise! Das von einem Profi zu hören tut weh...
Gruß Luc :-?
PS: Die "Jeanie" wurde wohl eher nicht für Dok-, sondern Web-Darstellungszwecke geschaffen...

Forumthread: Makros auslesen

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Makros auslesen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)