Markierung mit "Fadenkreuz"
M3RLIN
folgendes Problem ... Zur besseren Orientierung in einer Tabelle möchte ich einen bestimmten Spalten- und Zeilenbereich markieren. Das klappt zwar grundsätzlich, hat aber noch einige "Schönheitsfehler". Der Bereich in dem sich das "Fadenkreuz" bewegen soll ist von B8 bis BC31. So weit ... so gut.
Ich möchte das ganze aber dahingehend einschränken, dass ich mich mit dem Cursor ausschließlich in diesem definierten Bereich bewegen kann.
Zweites Problem ist, dass wenn ich den Cursor nach rechts oder links bewege, ein Feld nicht markiert ist.
Hat jemand eine Idee ?
Vielen Dank schon mal für eure Bemühungen ...
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static ZeileAlt As Integer
Static SpalteAlt As Integer
If ZeileAlt 0 Then
Range(Cells(ZeileAlt, 2), Cells(ZeileAlt, 29)).Interior.ColorIndex = xlColorIndexNone
Range(Cells(Target.Row, 2), Cells(Target.Row, 29)).Interior.ColorIndex = 24
End If
ZeileAlt = Target.Row
If SpalteAlt 0 Then
Range(Cells(8, SpalteAlt), Cells(31, SpalteAlt)).Interior.ColorIndex = xlColorIndexNone
Range(Cells(8, Target.Column), Cells(31, Target.Column)).Interior.ColorIndex = 24
End If
SpalteAlt = Target.Column
End Sub