Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchergebnis Fett

Suchergebnis Fett
01.09.2003 14:41:19
Rick
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchergebnis Fett
01.09.2003 20:43:34
RainerW
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
AW: Suchergebnis Fett
02.09.2003 07:59:15
Rick
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!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige