Herbers Excel-Forum - das Archiv

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