Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Makros(Sub's)in Kommentar
robert
hi,
ich möchte gerne die Sub's auslesen
in meinem zusammengestoppeltem code schreibt er alle Sub's in den kommentar.
ich möchte aber zB. im kommentar tt nur
Sub tt()
Msgbox "Hallo"
End Sub

https://www.herber.de/bbs/user/64621.xls
bitte um hilfe
gruß
robert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makros(Sub's)in Kommentar
23.09.2009 18:05:09
fcs
Hallo Robert,
mit den folgenden Anpassungen gehts. Ob du die Deklarationen mit Ausgeben willst muss du halt selber entscheiden. Sie werden nicht mit der 1. Prozedur ausgegeben, sondern während des Durchlaufs durch den Modul-Code eingesammelt.
Gruß
Franz
Sub MakroListe()
Dim vbc As Object
Dim cmt As Comment
Dim iRow As Integer, iCol As Integer, iCounter As Integer
Dim sMacro As String
Dim sCode As String, sDeklaration As String
Cells.Clear
Rows(1).Font.Bold = True
For Each vbc In ThisWorkbook.VBProject.VBComponents
'  For Each vbc In ActiveWorkbook.VBProject.VBComponents
sDeklaration = ""
iRow = 1
iCol = iCol + 1
Cells(iRow, iCol).Value = vbc.Name
With vbc.CodeModule
For iCounter = 1 To .CountOfLines
If .ProcOfLine(iCounter, 0) > "" Then
sMacro = .ProcOfLine(iCounter, 0)
iRow = iRow + 1
Cells(iRow, iCol).Value = sMacro
sCode = .Lines(iCounter, .ProcCountLines(sMacro, 0)) _
& vbLf & vbLf & "Aktualisierung: " & Now
sCode = Replace(sCode, vbCr, "")
With Cells(iRow, iCol)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
Set cmt = .AddComment(sCode)
cmt.Shape.TextFrame.AutoSize = True
End With
iCounter = iCounter + .ProcCountLines(sMacro, 0) - 1
Else
sDeklaration = sDeklaration & vbLf & .Lines(iCounter, 1)
End If
Next iCounter
If sDeklaration  "" Then
sDeklaration = "Deklarationen:" & sDeklaration
sDeklaration = Replace(sDeklaration, vbCr, "")
sDeklaration = sDeklaration & vbLf & vbLf & "Aktualisierung: " & Now
iRow = iRow + 1
With Cells(iRow, iCol)
.Value = "Deklarationen"
If Not .Comment Is Nothing Then
.Comment.Delete
End If
Set cmt = .AddComment(sDeklaration)
cmt.Shape.TextFrame.AutoSize = True
End With
End If
End With
Next vbc
Columns.AutoFit
End Sub

Anzeige
Danke Franz(fcs),so wollte ich es..
23.09.2009 18:12:26
robert
hi Franz,
danke nochmals, funzt super.
nun versuche ich herauszufinden, wo mein fehler war.
gruß
robert
AW: Danke Franz(fcs),so wollte ich es..
24.09.2009 11:56:58
fcs
Hallo Robert,
der Hauptfehler war hier
      sCode = .Lines(1, .CountOfLines) & vbLf & vbLf & "Aktualisierung: " & Now
Diese Anweisung schreibt immer alle Zeilen des Moduls in die Variable.
Das ist bei mir jetzt so gelöst, dass ab der 1. Zeile einer Sub/Function immer die Anzahl Zeilen der Function/Sub ausgelesen.
                sCode = .Lines(iCounter, .ProcCountLines(sMacro, 0)) _
& vbLf & vbLf & "Aktualisierung: " & Now
sCode = Replace(sCode, vbCr, "")
With Cells(iRow, iCol)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
Set cmt = .AddComment(sCode)
cmt.Shape.TextFrame.AutoSize = True
End With
iCounter = iCounter + .ProcCountLines(sMacro, 0) - 1

Nach dem auslesen der Zeilen wird der Zeilen-Zähler dann immer auf die letzte Zeile der Funktion/Sub gesetzt.
Gruß
Franz
Anzeige
Ja,Ja, so löst das ein Profi-Danke :-) owT
24.09.2009 17:39:12
robert

300 Forumthreads zu ähnlichen Themen


Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
Anzeige

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...

Hallo liebe Excel-Experten,
es wäre nett, wenn Ihr mir helfen könntet.
Ich habe verschiedene (mehr als 50) Diagramme erzeugt, dabei gibt es übergeordnete Diagramme und Diagramme, die Details betreffen.
Natürlich kann sich der Betrachter über die Diagramm-Namen durchsuchen. Ich möcht...
Anzeige

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...

Hallo und guten Abend!!!
Brauche wieder einmal eure Hilfe!!!
In einer Tabelle Namens Hilfsblatt werden in Spalte O die Daten aus den Spalten I & K zusammengefasst (z.B. =I5&K5). Der Wert aus Spalte P wird mittels folgender Formel
=WENN(ISTFEHLER(SVERWEIS($B2&C$1;Hilfsbl...

Hallo an alle,
die Linien in meinem Liniendiagramm werden nicht ganz gerade,
sondern sind gerastert.
Woran liegt es bzw. was kann ich machen?
Vielen Dank für Eure Hilfe.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige