Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste Makro Tastaturbelegung

Liste Makro Tastaturbelegung
30.05.2006 12:47:15
Margarete
Hallo Helferlein,
nach erfolglosen Suchaktionen bitte ich um Hilfe. Ich möchte gern eine Liste meiner Makros erstellen und gleichzeitig die dazugehörigen Tastatur Shortcut's mit auflisten.
Für Eure Hilfe schon mal vielen Dank im voraus.
Nette Grüße
Margarete

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste Makro Tastaturbelegung
30.05.2006 12:54:44
Reinhard
Hi Margarete,
nachfolgenden Code fand ich mal hier oder im Internet, hatte ihn aber noch nie getestet. Leider meckert der Debugger schon bei der ersten Zeile, anscheinend fehlt ein Verweis damit er vbComponents annimmt.
Gruß
Reinhard
Sub Alle_Makros_Liste()
Dim CMdl As VBComponent
Dim C%, R%, i%
Dim Makro$
Cells.Clear
For Each wb In Workbooks
C = 1
R = R + 1
Cells(R, C) = wb.Name
Cells(R, C).Font.Bold = True
Cells(R, C).Font.ColorIndex = 3
For Each CMdl In wb.VBProject.VBComponents
If CMdl.Type = _
vbext_ct_ClassModule Or _
vbext_ct_Document Or _
vbext_ct_StdModule Then
R = R + 1
Cells(R, C) = "    " & CMdl.Name
Cells(R, C).Font.Italic = True
Cells(R, C).Font.ColorIndex = 5
With CMdl.codemodule
For i = 1 To .CountOfLines
If .ProcOfLine(i, vbext_pk_Proc) > "" Then
Makro = "        " & .ProcOfLine(i, vbext_pk_Proc)
If Makro <> Cells(R, C) Then
R = R + 1
Cells(R, C) = Makro
End If
End If
Next i
End With
End If
Next CMdl
Next wb
End Sub

Anzeige
AW: Liste Makro aber ohne Tastaturbelegung
30.05.2006 13:01:23
Margarete
Hallo Reinhard,
vielen Dank für Deine schnelle Antwort. Dein Makro funktioniert. Eine Liste aller Makros wird erstellt. Hast Du auch eine Möglichkeit den dazugehörigen Tastatur-Shortcut rauszufinden? Ich weiß nämlich nicht mehr welcher welcher ist.
Vielen Dank erst mal.
Nette Grüße
Margarete
AW: Liste Makro aber ohne Tastaturbelegung
30.05.2006 13:08:10
Reinhard
Hi Margarete,
welche Verweise hast du denn gesetzt, ich habe nur diese:
https://www.herber.de/bbs/user/33997.jpg
Nach den Tastenkürzeln muss ich noch schauen, deshalb Frage noch offen.
Gruß
Reinhard
Verweise
30.05.2006 13:22:44
Margarete
Hallo Reinhard,
leider funktioniert das hochladen nicht. Ich versuchs mal so:
Visual Basic for Application
Microsoft Excel 11.0 Object Library
OLE Automation
Microsoft Forms 2.0 Object Library
Microsoft Office 11.0 Object Library
Microsoft Visual Basic For Application Extensibility 5.3
Microsoft Outlook 11.0 Object Library
Microsoft Windows Common Controls 6.0 (SP6)
Is 'n bisschen anders als bei Dir...
Nette Grüße
Margret
Anzeige
AW: Verweise
30.05.2006 14:02:06
Reinhard
Hi Margarete,
danke für die Info, habe es zwischenzeitlich anders geregelt und geänderter Code läuft jetzt auch bei mir, blieben noch die Shortcuts zu lösen.
Sub Alle_Makros_Liste()
Dim CMdl
Dim C%, R%, i%
Dim Makro$
Cells.Clear
For Each wb In Workbooks
C = 1
R = R + 1
Cells(R, C) = wb.Name
Cells(R, C).Font.Bold = True
Cells(R, C).Font.ColorIndex = 3
For Each CMdl In wb.VBProject.VBComponents
If CMdl.Type = 1 Then
R = R + 1
Cells(R, C + 1) = "    " & CMdl.Name
Cells(R, C + 1).Font.Italic = True
Cells(R, C + 1).Font.ColorIndex = 5
End If
Next CMdl
Next wb
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige