kann mir bitte wer weiterhelfen
ich ,öchte über eine Textbox welche sich in der Userform 1 befindet(TextBox1) die Spalte A in Tabelle1 durchsuchen. wenn der wert gefunden wird sollen die drrei Zellen daneben markiert werden
danke für eure Hilfe
Option Explicit
Private Sub CommandButton1_Click()
Dim Suchergebnis As Range
With Columns(1)
Set Suchergebnis = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
Range(Cells(Suchergebnis.Row, "B"), Cells(Suchergebnis.Row, "D")).Select
Else
MsgBox "nix gefunden"
End If
End With
End Sub