Von A bis F Zelle Farblich hinterlegen
03.01.2007 13:36:13
Heinz
Habe unteren Code der besagt:
Wenn ich im Sheets "Eingabe" E10:E17 einen doppelklick mache,das ich dann automatisch in Sheets "Artikeln" zu der Zelle komme wo in Spalte A der gleiche Wert vorhanden ist, wie in "Eingabe" E10:E17
Das funkt. auch super,nur möchte ich diese Zelle hervorheben.Von A bis F
Also zum Beispiel ich komme nach Doppelklick von "Eingabe" nach "Artikeln" A 55
das mir die Zelle A55:F55 hervorgehoben wird.
Egal ob farblich oder sonst irgendwie,nur das man deutlich merkt das man sich in der Zelle 55 befindet.
Könnte mir Bitte jemand dabei helfen ?
Danke,Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Intersect(Target, [E10:E17]) Is Nothing Then Exit Sub
Sheets("Artikeln").Visible = True
Cancel = True
Set c = Worksheets("Artikeln").Range("A2:A50000").Find(Target.Value)
Worksheets("Artikeln").Activate
If Not c Is Nothing Then c.Select
End Sub
Anzeige