HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
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.
Als Antwort auf diesen Beitrag
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

Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.