active cells

Forumthread: active cells
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: active cells

active cells

21.07.2002 17:20:19

anne noack

ich habe 2 excel sheets.auf dem ersten soll ein wort(bspweise der name einer firma) anklickt werden.danach soll automatisch auf dem zweiten excelsheet die firma gefunden und markiert werden, so dass das finden näherer infos zu diesem begriff möglich ist.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: active cells

21.07.2002 18:32:41

Bonte

Re: active cells

21.07.2002 18:32:41

Bonte

Hallo Anne,

ist vielleicht nicht die eleganteste Lösung, aber funktioniert:

Dieses Makro in das Modul von deinem ersten Sheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Target.Value <> "" Then
    On Error Resume Next
    Sheets(2).Activate
    Sheets(2).Cells.Find(What:=Target.Value, lookat:=xlWhole).Activate
    If ActiveCell.Value <> Target.Value Then Sheets(1).Activate
End If
Application.ScreenUpdating = True
End Sub