Makro in einem anderen Blatt ausführen, wenn bestimmtes geöffnet wird

Question

Hallo Gemeinde,


ich stehe vor folgendem Problem:
Wenn ich das Sheet "Lagerliste" öffne, so soll auf einem anderen Sheet mit dem Namen "Legende" ein Makro ausgeführt werden. Der Name von dem Makro ist "Legende_Bereinigen".


Soweit bin ich:
Private Sub Worksheet_Activate()
Application.Run "Werkzeuglager.xls!Bereinigen_Legende"
End Sub


Ich weiß nur nicht wie ich auf das Sheet "Legende" verweisen soll, so führt er das Makro immer im angeklickten Sheet aus...!?

Hilfe....

Answer 1

Hallo,

nur wenige sehen den Code der ausgeführt wird.

Gruß Hajo

Answer 2

Hallo Hajo,

der Code der ausgeführt werden soll ist:

Sub Bereinigen_Legende()

Range("A5:U5").Select
Selection.ClearContents
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Application.Run "Werkzeuglager.xls!Legende_suchen"
End Sub


... war das die Frage?

Answer 3

Option Explicit

Sub Bereinigen_Legende()
With Workbooks("aufrufededatei.xls").Worksheets("Tabelleinderesausgeführtwerdensoll")
With .Range("A5:U5")
.ClearContents
With .Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End With
End With
Application.Run "Werkzeuglager.xls!Legende_suchen"
End Sub

Answer 4

Hallo Hajo,

Danke für die Mühe, allerdings passiert nichts,
wenn ich es über:


Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
With Workbooks("Werkzeuglager.xls").Worksheets("Legende")
With .Range("A5:U5")
.ClearContents
With .Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End With
End With
Application.Run "Werkzeuglager.xls!Legende_suchen"

End Sub

anspreche, wird es zwar ausgeführt, aber erst wenn ich das Blatt "Legende" wieder öffne.
Wie kann ich das Makro also starten, wenn ich das blatt "Legende" verlasse, b.z.w. ein bestimmtes Andere, nämlich "Lagerliste" anklicke?

Gruß Hajo