meine Arbeitsmappe besteht aus mehreren Arbeitsblättern, in denen bestimmte Zellen geschützt und andere zur EingabeBearbeitung nötig sin. Damit der Benutzer sofort sieht welche Zellen er bearbeiten kann und welche nicht, soll ein Rahmen oder eine Farbe um die Zelle enstehen, wenn der Mauszeiger über so einer steht.
Durch eigene Recherche bin ich nicht allzu weit gekommen.
Dieser Code bewirkt zb gar nichts:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X _
_
_
As Single, ByVal Y As Single)
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub