Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche

Suche
25.09.2006 18:37:47
Fritz
Hallo habe heute noch eine Frage
Möchte mit einem Makro eine Suche in Tabelle2 durchführen der Wert nach dem gesucht werden soll steht in der Tabelle1 in Zelle A1 die gefundene Zelle soll aktiviert werden.
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche
25.09.2006 19:18:05
fcs
Hallo Fritz,
Beispiel-Code:

Sub Suchen()
Dim Begriff As Variant
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zelle As Range
Set wks1 = ActiveWorkbook.Worksheets("Tabelle1")
Set wks2 = ActiveWorkbook.Worksheets("Tabelle2")
Begriff = wks1.Range("A1").Value
Set Zelle = wks2.Cells.Find(What:=Begriff, LookIn:=xlValues, Lookat:=xlWhole)
wks2.Select
Zelle.Select
End Sub

Gruss
Franz
AW: Suche
25.09.2006 19:59:48
Fritz
Danke und schönen Abend

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige