Suche
25.09.2006 21:18:21
Fritz
habe vorhin von Franz folgenden Code erhalten der super funktioniert. würde aber noch eine erweiterung benötigen das falls der suchbegriff nicht gefunden wird eine msgbox angezeigt wird mit "daten nicht enthalten"
Danke
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