Suche

Forumthread: Suche

Suche

25.09.2006 20: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

AW: Suche

25.09.2006 21:18:05

fcs
AW: Suche

25.09.2006 21:59:48

Fritz

AW: Suche

25.09.2006 21: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 21:59:48

Fritz

Danke und schönen Abend

Forumthread: Suche

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread