ich hoffe auf eure Hilfe bei einem Problem vor das mich mein Chef gestellt hat.
Ich soll eine Rechnung mit einer Bad-Word-Liste vergleichen. Die Rechnung wird per Makro in Excel erstellt und die Relevanten Daten stehen auf Tabelle1 in Spalte D ab Zeile 24 und die Bad-Word-Liste auf Tabelle Bad Words (siehe Beispiel Datei). Das Problem dabei ist, dass die Zellen Zeilenumbrüche enthalten und somit die meisten Funktionen nicht greifen.
Ich würde das ganz gerne als Makro einrichten, damit es von allen in unserer Firma, mit Hilfe der Rechnungsvorlage, Problemlos angewendet werden kann.
Ich hatte mir hier im Forum bereits zum Testen ein Makro herausgesucht, nur leider funktioniert es auch nicht bei Zellen mit Zeilenumbrüchen und nur bei Daten die in Spalte A stehen:
Sub Vergleich()
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
Set wks = Worksheets("Bad Words")
For iRow = 1 To WorksheetFunction.CountA(Columns(1))
var = Application.Match(Cells(iRow, 1).Value, wks.Columns(1), 0)
If Not IsError(var) Then
Cells(iRow, 1).Interior.ColorIndex = 3
wks.Cells(var, 1).Interior.ColorIndex = 3
End If
Next iRow
End Sub
Test Datei: https://www.herber.de/bbs/user/146233.xlsx
Ich würde mich riesig über eure Hilfe freuen.
Gruß
Daniel
P.S. Kann mir jemand einen guten Grundkurs für Makro/VBA Programmierung oder auch ein gutes Buch für Einsteiger empfehlen?