Aktive Zelle farbig/kopieren
03.07.2006 13:45:08
Philip
ich habe folgenden Code um die aktive Zelle farbig zu markieren:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 19
Set lastcell = Target
End Sub
Leider kann ich jetzt nicht mehr normal kopieren- hat jemand eine Idee, wie ich den Code anpassen könnte? Danke im Voraus.
Gruss,
Philip