Hallo zusammen
Ich habe folgendes Problem:
Für ein etwas grösseres Excel sheet brauche ich etwas für die orientierung... So will ich dies mit Farben lösen, welche von links und oben zu dem angewählten Feld kommen...
Das heisst, wenn man feld B3 anklickt, werden A3, B1 und B2 eingefäbt
So weit so gut, funktioniert auch alles
Wenn ich jetzt jedoch einen neuen Punkt anklicke, verschwinden diese Farbigen Felder nicht mehr... Das problem ist noch, dass das Excel Sheet selbst hintergrundfarben hat, und diese wieder hevorkommen sollten, wenn man ein neues Feld anklickt...
hier wäre noch mein Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Zeile
Dim Spalte
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
For ix = 1 To Zeile - 1
Cells(ix, Spalte).Interior.Color = vbRed
Next
For iy = 1 To Spalte - 1
Cells(Zeile, iy).Interior.Color = vbRed
Next
End Sub
Danke im Voraus für eure Hilfe ;) |