bin auf der Suche nach einer Möglichkeit den Wert aus Zelle A1 in einer Liste des gleichen Arbeitsblattes zu suchen. Habe im Archiv nachfolges gefunden.
Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim s As String
Dim laR As Long
s = Range("A1").Text
With Sheets("Tabelle1")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range(.Cells(1, 1), .Cells(laR, 1)). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
Application.Goto Reference:=SuBe, Scroll:=True
Rows(SuBe.Row).Select
Set SuBe = Nothing
Else
MsgBox "Nichts gefunden !"
End If
End With
End Sub
Dazu 2 Fragen:
- Muss ich die Tabelle hinter With ... namentlich festlegen oder geht auch aktives Blatt
- Warum wird BsgBox nicht angezeigt wenn Wert nicht vorhanden
mfg Werner