Hey Leute.
Ich starte ein Makro, welches ein anderes Worksheet durchsucht und würde gerne die gefundene Zelle selektieren ohne zu dem anderen Worksheet zu wechseln. Bisher habe ich nur Lösungen gefunden, bei der ich auf das besagte andere Sheet wechseln musste, was ich vermeiden will. Mein Code sieht bisher so aus, funktioniert aber leider nicht:
Private Sub Search0_Click()
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim such As String, LetzteZeile As Long, i As Long
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets("Übersicht")
Set ws2 = wb.Worksheets("Daten")
such = UserForm1.TextBox1.Value
LetzteZeile = ws2.Range("B65536").Row
For i = 5 To LetzteZeile
If ws2.Cells(i, 2) = such Then
MsgBox "Wert gefunden"
ws2.Cells(i, 2).Select
End If
Next i
End Sub
|