Suche

Forumthread: Suche
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Suche

Suche

25.09.2006 23:18:21

Fritz

Hallo Schönen Abend!
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche

25.09.2006 23:27:07

Josef
AW: Suche

25.09.2006 23:28:05

fcs

AW: Suche

25.09.2006 23:27:07

Josef

Hallo Fritz!

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)

If Not Zelle Is Nothing Then
Application.Goto Zelle
Else
MsgBox "Daten nicht gefunden!"
End If

Set wks1 = Nothing
Set wks2 = Nothing
Set Zelle = Nothing
End Sub

Gruß Sepp

AW: Suche

25.09.2006 23:28:05

fcs

Hallo Fritz,
passe den Code wie folgt an:


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)
If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht enthalten!"
Else
wks2.Select
Zelle.Select
End If
End Sub

Gruss
Franz

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!