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