Suchfunktion über Button / Ergebniss: "Ganze Zeile makieren in Grün , resteliche Zeilen ausblenden

Dieses Thema im Forum "Visual Basic" wurde erstellt von Beno297, 29 März 2015.

  1. Beno297

    Beno297
    Expand Collapse
    New Member

    Registriert seit:
    29 März 2015
    Beiträge:
    1
    Zustimmungen:
    0
    Hallo Leute

    ich könnte ein wenig hilfe gebrauchen.
    Benötige eine Suchfunktion über einen Button. Das Ergebnis soll Grün hinter legt werden ( Ganze Zeile im Suchbereich) alles andere soll ausgeblendet werden. Bei neu Betätigung des Buttons auf Ausgangspunkt bzw neu suche starten.

    Hoffe hier könnt mir helfen vielen dank im Voraus

    Mein bisheriger Code:


    Sub suchen()

    Dim rngFind As Range
    Dim strTitel As String
    'suchdialog kreieren
    strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)
    'zu durchsuchenden spaltenumfang angeben
    Set rngFind = Columns("A:H").Find(strTitel, LookIn:=xlFormulas)
    'zur stelle springen oder message ausgeben
    If Not rngFind Is Nothing Then
    rngFind.Rows.Interior.ColorIndex = 4
    Else
    MsgBox "Es wurde nichts gefunden"
    End If

    End Sub
     
  2. RO_SCH

    RO_SCH
    Expand Collapse
    Moderator

    Registriert seit:
    27 August 2006
    Beiträge:
    2.502
    Zustimmungen:
    15
    Hi Beno,

    um die farbliche Unterlegung weg zu bekommen, könnte schon diese Zeile ausreichen.

    Cells.Interior.ColorIndex = xlNone

    Unabhängig, wie du das mit dem/den Button(s) machen willst.

    Natürlich nur, wenn du sonst keine anderen Farben im Spiel hast.
     
Die Seite wird geladen...

Diese Seite empfehlen