Makro einbinden.....
Joachim
ich habe eine Mappe die auch mehrere Makros enthält.
Nun möchte ich gerne eine Funktion die ich bereits in einer anderen Mappe nutze auch hier einbinden.
Dabei wird die gerade aktive Zelle gelb markiert.
Nachfolgend das Makro, welches bereits in der Mappe integriert ist:
Private Sub Workbook_Open()
End Sub
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Calculate
End Sub
----------------------
Der folgende Code (aus der anderen Mappe) bewirkt eben jene Funktion.
Wie kann ich dies richtig einsetzen.
Alle Blätter in dieser Mappe sollen die Funktion aufweisen, dass bei Auswahl einer Zelle - eben diese einen gelben Hintergrund erhält und bei verlassen wieder auf weiß zurückgestellt wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect ("")
Static Zelle As Range
If Application.CutCopyMode Then Exit Sub
If Not Zelle Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6 ' Gelb
Set Zelle = Target
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect ("")
End Sub
XXXXXXXXXXXXXXXXXXXXXXXXX
Kann mir jemand dabei behilflich sein?
Gruß
Joachim