HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv

Beiträge zum Thread: Makro aus ein Klassenmodul ausführen

Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Werner
15.06.2026 18:40:13
Makro aus ein Klassenmodul ausführen
Guten Tag Fachleute,

ich habe ein Klassenmodul mit dem ich Klickereignisse von Labels ermittle.

Die ermittelte Label-Nr. wird in zwei Zelle auf dem Tabellenblatt gespeichert.

Danach sollen zwei Makros auf dem Tabellenblatt 3 ausgeführt werden.

Meine Kenntnisse reichen nicht aus, um das zu ermöglichen.

Option Explicit

Public WithEvents LabelEreignis As MSForms.Label

Public Sub LabelEreignis_Click()

' Gibt den Namen des gedrückten Labels aus
'MsgBox LabelEreignis.Name
'MsgBox Right(LabelEreignis.Name, Len(LabelEreignis.Name) - 5)

'einen Wert in Zelle schreiben ( für die Zell-Nr ).....
Worksheets(3).Range("Zell_Nr").Value = Right(LabelEreignis.Name, Len(LabelEreignis.Name) - 5)

'einen Wert in Zelle schreiben ( für die Label-Nr ).....
Worksheets(3).Range("Label_Nr").Value = Right(LabelEreignis.Name, Len(LabelEreignis.Name) - 5) + 15

ThisWorkbook.Worksheets("Tabelle3").Activate

'Label positionieren und einfärben.....
Application.Run Pos_Label

'Datenreihe erstellen bzw. bearbeiten.....
Application.Run Dial_Ein_Aus

End Sub

Evtl. gibt es unter Euch eine Fachperson, die mir behilflich sein kann!

Schöne Grüße
Werner

Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
snb
15.06.2026 19:19:21
AW: Makro aus ein Klassenmodul ausführen
Das alles kan in demselen Macro 
Private WithEvents LabelEreignis As MSForms.Label



Private Sub LabelEreignis_Click()

   sheets(3).Range("Zell_Nr").resize(,2)=array(Right(LabelEreignis.Name, Len(LabelEreignis.Name) - 5),Right(LabelEreignis.Name, Len(LabelEreignis.Name) - 5) + 15)

   Label.postion=cells(4,4)

   Datenreihe etc

End Sub


NB. Macros im Klassenmodul sind PRIVATE
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Werner
15.06.2026 20:34:00
AW: Makro aus ein Klassenmodul ausführen
Hallo snb,

ich komme nicht weiter.

NB. ?

Macros im Klassenmodul sind PRIVATE.

Habe ich gemacht. Und weiter?

Das alles kan in demselen Macro?

Sind damit die Makros gemeint?

Schöne Grüße
Werner

Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Ulf
15.06.2026 20:51:51
AW: Makro aus ein Klassenmodul ausführen
Hi Werner,
im Anhang eine Datei, die veranschaulicht wie man Aufrufe aus Modul/Tabellenblatt unterscheidet.
Das Formular ausführen und ggf Debug bei den Aufrufen
https://www.herber.de/bbs/user/180815.xlsm
hth
Ulf
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
xlKing
16.06.2026 18:09:30
AW: Makro aus ein Klassenmodul ausführen
Hallo Werner,

wenn man dir helfen soll, musst du uns schon mehr Input geben. Am besten den gesamten Code. An welcher Stelle kommst du denn nicht weiter? Bei mir macht jedenfalls dein Makro genau das was es soll. Wenn ich auf das Label klicke wird in Tabelle3 in die beiden benannten Zellen die Nr. des Labels sowie nochmal die Nummer + 15 eingetragen. Warum auch immer du das so willst.

Wichtige Frage: Gibt es im Tabellenblatt3 überhaupt benannte Zellen mit den Namen Zell_Nr und Label_Nr?
Hast du dein Label überhaupt der Eigenschaft LabelEreignis des Klassenmoduls zugewiesen?

PS: die Msgbox wir im Klassenmodul bei mir ignoriert. Braucht man dort auch nicht wirklich.

Gruß Mr. K.
Auf Beitrag antworten