Ein Makro aus einem Worksheet für diverse andere nutzen

[Zodrex]

Hallo zusammen,

ich habe in einem Arbeitsblatt ein Makro der dann bei Klick mit rechter Maustaste auf Zelle A1 diverse Formatierungen etc. macht.
Diese Befehle hätte ich gerne für andere Arbeitsblätter (Jedoch nicht für alle).

Gibt es eine Möglichkeit die kompletten Befehle als irgendwas zu deklarieren und von der anderen Arbeitsmappe darauf zurück zu greifen? Es sind in diesem Fall ca. 10 Worksheets. Ich kann natürlich auch den kompletten Befehl einfach in die jeweiligen Blätter kopieren, schöner wäre es jedoch wenn es anders geht =)

(Nochmal: Es geht nicht um die komplette Arbeitsmappe, sondern um einige Arbeitsblätter)

Vielen Dank vorab.

Liebe Grüße

[MisterBurns]

Hallo,

kopiere dein bestehendes Makro in in allgemeines Modul (Einfügen - Modul), zB so

Code:

Sub Formatieren()
'Mach was
'Mach nochwas
'Und einer geht noch
End Sub

In den Modulen der gewünschten Tabellenblätter schreibst du dann jeweils

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Call Formatieren
End Sub

[Zodrex]

Hallo Berni,

klasse Idee.

Hat geklappt Danke =)

[Kuwer]

Hallo,

ich würde das mit einem Ereignismakro im Modul "DieseArbeitsmappe" machen:

Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 



Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 

 Select Case Sh.Name 

   Case "Tabelle1", "Tabelle3" 

     If Target.Address = "$A$1" Then 

       '... 

       '... 

     End If 

 End Select 

End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Gruß Uwe