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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen