AW: autm Markierung der Position in Tabelle
14.11.2005 14:18:23
Harald
Hi Lucie
rechte Maus auf den Namen der betreffenden Tabelle, Code anzeigen und ins rechte Fenster diesen Code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
spalte = ActiveCell.Column
reihe = ActiveCell.Row
Range(Cells(1, spalte), Cells(reihe, spalte)).Interior.ColorIndex = 36
Range(Cells(reihe, 1), Cells(reihe, spalte)).Interior.ColorIndex = 36
MsgBox ("Du befindest dich in " & ActiveCell.Address(rowabsolute:=False, columnabsolute:=False))
End Sub
Vor die Msgbox kannst ja ggf ein Hochkomma setzen. Dann kommt keine Meldung
Gruss Harald