Anzeige
Archiv - Navigation
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

active cells

active cells
21.07.2002 15: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
Anzeige
Re: active cells
21.07.2002 16: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

     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Bonte

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige