Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Bessere Suchfunktion

    Betrifft: Bessere Suchfunktion von: Lars
    Geschrieben am: 28.08.2003 16:56:49

    Hallo !

    Habe ein Problem mit meiner Suche, Suche nach in der Tabelle vorhandenen Namen und Zahlen. Diese Suchroutine funktioniert auch einwandfrei. Wie kann ich die jeweils dann gefundene Zelle mit einer Farbe hinterlegen und vielleicht noch die dazu gehörende Zeile mit ner anderen Farbe markieren. Hab auch schon daß eine oder andere ausprobiert, aber mit dem Blattschutz haut das alles nicht so richtig hin.

    Private Sub beim Tabellenblatt bzw. in der Excel Mappe haben auch nicht so richtig funktioniert. Mein momentaner Suchcode ist nachstehend aufgeführt.
    
    Wer kann helfen ???
    
    Danke im Voraus !!!
    
    Sub Suche()
    
    Dim bereich As Range
    Dim s As String
    
    
    Sheets("text").Activate
    s = InputBox _
    ("Please enter the words you are looking for (SKU#, P/N#)!")
    If s = "" Then
    Exit Sub
    Set bereich = Sheets("text").Columns() _
        .Find(s, lookat:=xlPart)
    If bereich Is Nothing Then
        MsgBox "name '" & s & _
        "'konnte nicht gefunden werden !"
    Else
        bereich.Select
    End If
     
    
    End Sub
    

      


    Betrifft: AW: Bessere Suchfunktion von: ChrisL
    Geschrieben am: 28.08.2003 17:42:44

    Hi Lars

    Siehe Anhang
    https://www.herber.de/bbs/user/766.xls

    Ein Ansatz mit bedingter Formatierung den ich einiges einfacher finde, denn das Makro müsstest du nochmals total umschreiben.

    Das ganze funktioniert über eine Hilfszelle, die du auch ausblenden kannst.

    Wenn man die genaue Aufgabenstellung kennen würde, kann man den Ansatz beliebig erweitern. Auch Suche nach 'Teil-String' müsste möglich sein.

    Gruss
    Chris