Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Suchen und markieren

Betrifft: Suchen und markieren von: fritz-frank@gmx.at
Geschrieben am: 12.10.2014 12:35:14

Schönen Tag

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

  

Betrifft: AW: Suchen und markieren von: Crazy Tom
Geschrieben am: 12.10.2014 13:06:33

Hallo

das könnte so gehen

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

MfG Tom


  

Betrifft: AW: Suchen und markieren von: fritz-frank@gmx.at
Geschrieben am: 12.10.2014 13:29:32

Vielen Dank Tom
hat super funktioniert
schönen sonntag noch
lg fri


 

Beiträge aus den Excel-Beispielen zum Thema "Suchen und markieren"