Wortteil in Tabelle suchen und Zelle markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Elmar,
zunächst einmal hier das gesuchte Makro :

Sub WortteilSuchen()
Dim lngZ As Long
Dim rngSuchspalte As Range
Set rngSuchspalte = Sheets("Tabelle1").[A:A] 'In dieser Spalte wird gesucht
With Sheets("Tabelle2") 'in diesem Blatt stehen in Spalte A die Suchbegriffe
For lngZ = 1 To .Cells(Rows.Count, 1).End(xlUp).Row 'bis zum letzten Wert in Spalte A
If .Cells(lngZ, 1)  "" Then 'Nur suchen wenn Zelle nicht leer ist
If Application.CountIf(rngSuchspalte, "*" & .Cells(lngZ, 1) & "*") > 0 Then
rngSuchspalte.Find(.Cells(lngZ, 1), lookat:=xlPart). _
EntireRow.Interior.Color = vbYellow
End If
End If
Next
End With
Set rngSuchspalte = Nothing
End Sub

Davon abgesehen : Das kann man auch sehr elegant ohne VBA lösen :
- Markiere in Blatt "Tabelle2" die Zellen mit den partiellen Suchbegriffen
- Vergib dafür im Namensfeld (oberhalb A1) den Namen "Suchbegriffe" und bestätige mit ENTER
- Markiere nun in "Tabelle1" die zu durchsuchenden Zeilen
- Wähle "Format - Bedingte Formatierung", wähle für "Bedingung1" folgendes aus :
- "Formel ist" (nicht "Zellwert ist" !) - =SUMME(ZÄHLENWENN($A1:$A1;"*"&Suchbegriffe&"*"))
- "Format - Muster - (gelb) - OK - OK"
Jetzt sind die Zeilen, die mind. einen der Suchbegriffe in Spalte A enthalten, gelb eingefärbt !
Gruß, NoNet

Sub WortteilSuchen() Dim lngZ As Long, lngZGefunden As Long Dim rngSuchspalte As Range, rngZelle As Range Set rngSuchspalte = Sheets("Tabelle1").[D:D] 'In dieser Spalte wird gesucht With Sheets("Tabelle2") 'in diesem Blatt stehen in Spalte A die Suchbegriffe For lngZ = 1 To .Cells(Rows.Count, 1).End(xlUp).Row 'bis zum letzten Wert in Spalte A If .Cells(lngZ, 1) "" Then 'Nur suchen wenn Zelle nicht leer ist If Application.CountIf(rngSuchspalte, "*" & .Cells(lngZ, 1) & "*") > 0 Then If UCase(rngSuchspalte(1, 1)) Like UCase("*" & .Cells(lngZ, 1) & "*") Then Set rngZelle = rngSuchspalte(1, 1) 'Die nächste Zeile dient dazu, den BUG bei.FINDNEXT zu verhindern : lngZGefunden = rngSuchspalte.Find(.Cells(lngZ, 1), lookat:=xlPart).Row Else Set rngZelle = rngSuchspalte.Find(.Cells(lngZ, 1), lookat:=xlPart) End If Do rngZelle.EntireRow.Interior.Color = vbYellow lngZGefunden = rngZelle.Row Set rngZelle = rngSuchspalte.FindNext(after:=rngZelle) Loop Until rngZelle.Row

Beliebteste Forumthreads (12 Monate)

Wortteil in Tabelle suchen und Zelle markieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wortteil in Tabelle suchen und Zelle markieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread