Code Editor-Vergleicher

Bild

Betrifft: Code Editor-Vergleicher
von: Andreas
Geschrieben am: 31.03.2005 09:29:11
Hallo zusammen,
immer wieder stehe ich vor dem Problem das ich verschiedene Versionen von Excelprogrammcode miteinander vergleichen will/muss.
Hierzu muss ich immer über den VBE den Code manuell durchsuchen oder den Code in irdendeine Datei zusammen führen und dann mit einen Vergleicher durchsuchen und ändern.
Gibt es hier keine Abhilfe?
Ein Tool was auf den kompletten Code einer Excelmappe zugreifen kann und vergleichen kann? Sicherlich ...nur wo und wie finde ich es?
Vielen Danke schon mal..
VG Andreas

Bild

Betrifft: Code auslesen
von: Rolf Beißner
Geschrieben am: 31.03.2005 10:05:18
Hallo Andreas,
vielleicht hilft dir das
fG
Rolf

Sub code_auslesen()
    Dim vb  As VBComponents
    Dim vbc As VBComponent
    Dim i as Integer, L as Integer, x As Integer
    Set vb = ActiveWorkbook.VBProject.VBComponents
    x = 2
    For Each vbc In vb
        If vbc.Type = 1 Then
            With vbc.CodeModule
                L = .CountOfLines
                If L = 0 Then
                    Exit For
                End If
                Cells(x, 1) = .Name
                For i = 1 To L
                    Cells(x, 2) = .Lines(i, 1)
                    x = x + 1
                Next
            End With
        End If
    Next
End Sub

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sortierung"