Microsoft Excel

Herbers Excel/VBA-Archiv

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

Suchergebnis Fett

    Betrifft: Suchergebnis Fett von: Rick
    Geschrieben am: 01.09.2003 14:41:19

    Hallo
    Zu meinem Thema von heute morgen Stichwortsuche. Habe ich mir nach langem Suchen und probieren ein Makro gebastelt welches auch Funktioniert ! Ich mache also eine Stichwortabfrage In der Tabelle mit den Stichwörter der Tab. A1-A90 und das ergebnis wird in die Tabelle kopiert! So weit so gut . Ich hättejetzt noch gern das das jeweilige Stichwort Rot und Fett eingefärbt wird ! Kann mir da noch jemand weiterhelfen ???

    Sub Stichwortsuche()
    Dim wsQuelle As Worksheet, wsZiel As Worksheet
    Dim i&, firstAddress$, c, d As Range
    
    Set wsQuelle = Worksheets("Grunddaten") 'Quelle
    Set wsZiel = Worksheets("Ausgabe")
    i = 1
    For Each d In Sheets("Stichwörter").Range("A1:A90")
            strSuchBegr = d.Value
        With Intersect(wsQuelle.UsedRange, wsQuelle.Columns(1))
            If InStr(strSuchBegr, "*") = 0 Then _
                strSuchBegr = "*" & strSuchBegr & "*"
            Set c = .Find(strSuchBegr, After:=wsQuelle.Cells(.Rows.Count, 1), LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    c.EntireRow.Copy _
                        Destination:=wsZiel.Cells(i, 1)
                    i = i + 1
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            Else
                MsgBox "Suchbegriff: " & strSuchBegr & " nicht gefunden!"
            End If
        End With
    
    Next
    End Sub
    


    Danke Rick
      


    Betrifft: AW: Suchergebnis Fett von: RainerW
    Geschrieben am: 01.09.2003 20:43:34

    Hallo Rick,
    hat mit folgendem Code bei mir geklappt:

    ...
    c.EntireRow.Copy Destination:=wsZiel.Cells(i, 1)
    wsZiel.Cells(i, 1).Font.Bold = True     ' Fett ' Diese Zeile einfügen
    wsZiel.Cells(i, 1).Font.ColorIndex = 3 ' Rot ' Diese Zeile einfügen
    i = i + 1
    ...

    Gruß
    Rainer


      


    Betrifft: AW: Suchergebnis Fett von: Rick
    Geschrieben am: 02.09.2003 07:59:15

    Danke Rainer
    das Funktioniert soweit aber nicht ganz so wie ich es gerne hätte! Ich hätte gern das nur das Stichwort in der jeweiligen Zelle Fett wird!