AW: Werte suchen
21.04.2016 11:54:30
Peter
Hallo Michael,
mit Hinweis, wenn nichts gefunden wird
Option Explicit
Sub Suchen()
Dim WkSh As Worksheet
Dim rZelle As Range
Dim sSuchbegriff As String
sSuchbegriff = Range("A1")
On Error Resume Next
Set WkSh = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
With WkSh.Range("F1:F500")
Set rZelle = .Find(What:=sSuchbegriff, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
If Not rZelle Is Nothing Then
ActiveCell.Offset(0, 1).Select
Else
MsgBox "Der Begriff """ & sSuchbegriff & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
End Sub
Gruß Peter