Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Procs im Codemodule auflisten

Procs im Codemodule auflisten
15.05.2003 10:29:10
Hubert Z.
Liebes Forum,

weder in der Recherche noch im Internet werde ich fündig. Ich möchte in meinem mittlerweile ziemlich großen Projekt den Überblick behalten und deshalb mir alle subs funktionen und property gets und lets auflisten lassen.

Die Auflistung soll aussehen wie folgt:


usw.

Kann mir bitte jemand helfen? Vielen Dank im voraus.



10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Das wär ja echt mal interessant!
15.05.2003 10:42:29
Nike
Hi,

wenn du da was zu finden solltest,
wäre es nett, wenn du es posten könntest ;-)

Bye

Nike

Re: Das wär ja echt mal interessant!
15.05.2003 10:46:56
Hubert Z.
Das gibt es bereits bei O'Reilly aber leider nur für VB6:

Nur leider kennt Excel die "Members" Eigenschaft nicht :-(

Re: Procs im Codemodule auflisten
15.05.2003 10:50:13
L.Vira
Code in einem leeren Blatt ausfürhren:
''Verweis auf:
''Microsoft Visual Basic for Applications Extensibility x.x
''erforderlich! (x.x versionsabhängig)
Option Explicit
Sub MakroListe()
Dim objVBA As Object
Dim c As Long, r As Long, i As Long, Anfang As Long, Ende As Long
Dim strCode As String
Cells.Clear
For Each objVBA In ThisWorkbook.VBProject.VBComponents
If objVBA.Type = _
vbext_ct_ClassModule Or _
vbext_ct_Document Or _
vbext_ct_StdModule Then
r = 1
c = c + 1
Cells(r, c) = objVBA.Name
Cells(r, c).Font.Bold = True
With objVBA.CodeModule
For i = 1 To .CountOfLines
If .ProcOfLine(i, vbext_pk_Proc) > "" Then
strCode = .ProcOfLine(i, vbext_pk_Proc)
If strCode <> Cells(r, c) Then
r = r + 1
Cells(r, c) = strCode
End If
End If
Next i
End With
End If
Next
Cells.Columns.AutoFit
End Sub


Anzeige
Re: Das wär ja echt mal interessant!
15.05.2003 10:50:22
Nike
Hi,
hm, damit läßt sich doch schon mal was anfangen,
jetzt das Ganze noch auf Codemodules umbeamen und
das dürfte es gewesen sein ;-)
Hab leider nicht sooo viel Zeit und Ruhe hier
um so ein Baby jetzt zu knacken.
Ich hebe es mir auf jeden Fall mal auf...

Vielleicht findet sich ja noch einer,
der sich opert ;-)

Bye

Nike

Re: Das wär ja echt mal interessant!
15.05.2003 10:52:54
Hubert Z.
Dafür wäre ich dankbar. Wie gesagt, Excel-VBE kennt die Members-Eigenschaft, die die Basis für diesen Code ist, leider nicht. Melde Dich jederzeit, wenn du das Problem geknackt hast.

Danke

Re: Procs im Codemodule auflisten
15.05.2003 10:55:25
Nike
Hey,

coole Sache,
läßt sich ja dann auch noch gut aufbohren ;-)

Danke Dir.

Bye

Nike

Anzeige
Re: Procs im Codemodule auflisten
15.05.2003 10:58:49
Hubert Z.
Hallo L.Vira,

ja, den habe ich gefunden. Ich komme nur nicht drauf wie ich die gesamte Codezeile abdrucken kann.

Dein Code bringt mir


Was ich gerne hätte ist aber:



Geht das? Weißt du wie?

Re: Procs im Codemodule auflisten
15.05.2003 13:07:29
L.Vira
das bietet VBext leider nicht an aber so gehts:

Option Explicit
Sub MakroListe()
Dim objVBA As Object, bolFound As Boolean
Dim c As Long, r As Long, i As Long, strCode As String
Cells.Clear
r = 1
c = 1
For Each objVBA In ThisWorkbook.VBProject.VBComponents
If objVBA.Type <> 11 Then
Cells(r, c) = objVBA.Name
Rows(r).Font.Bold = True
r = r + 1
With objVBA.CodeModule
For i = 1 To .CountOfLines
bolFound = False
Select Case Left(.Lines(i, i), 3)
Case "Fun": bolFound = True
Case "Pri": bolFound = True
Case "Pro": bolFound = True
Case "Pub": bolFound = True
Case "Sub": bolFound = True
Case Else: bolFound = False
End Select
If bolFound Then
strCode = .Lines(i, i)
If InStr(strCode, Chr(13)) > 0 Then
strCode = Left(strCode, InStr(strCode, Chr(13)) - 1)
End If
Cells(r, c) = strCode
r = r + 1
End If
Next
End With
End If
Next
Cells.Columns.AutoFit
End Sub


Anzeige
Re: Procs im Codemodule auflisten
15.05.2003 13:49:49
Hubert Z.
Danke L.Vira

das sieht schon viel viel besser aus. Ich habe jetzt nur auch die private declare Anweisungen etc. drin, aber das bekomme ich noch heraus.

Vielen Dank für Deine Mühe und gut zu wissen, dass es doch keine so einfache Möglichkeit für mein Problem gibt. Das ist nicht ganz so frustrierend ;-)

Bis bald in diesem Forum HZ

Re: Procs im Codemodule auflisten
15.05.2003 17:49:41
L.Vira
Gelöst, meld dich mal später auf irgeneinen Beitrag von mir.

286 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Anzeige
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 Beiträge
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi
Warum loescht mir Excel hier nur die ersten zwei Zeilen? Hat jemand eine Idee?
Danke!
Sub step9() Dim i, lz As Long lz = Cells(Rows.Count, 6).End(xlUp).Row For i = 1 To lz If Cells(i, 6) = "" Then Exit For End If Next i Range("A2", Cells(i - 1, 43)).Select Selection.SpecialCell...
16.01.2009 19:35:01
Thread-ID: 1040733
3 Beiträge
VBA > Text keinen Zeilenumbruch
Gopla

Hallo liebe Gemeinschaft,
ich habe ein Problem, dessen ich nicht Herr werde und welches schwer zu beschreiben ist:
Ich habe einen Text.txt, welcher in VBA durch
intHandle = FreeFile
Open "C:\test.txt" For Input As #intHandle
geöffnet wird und anschließend durch
Line In...
18.01.2009 01:55:08
Thread-ID: 1041037
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
12
5
12
2
7
6
2
5
2
23
7
4
2
4
3
6
3
4
1
10
4
7
1