Hallo,
ich habe folgendes Problem.
Ich möchte den Text in einer Tabelle mit dem Text in einer anderen Tabelle vergleichen.

Ziel des ganzen: Mein Kontoauszug soll automatisch verschiedenen Kategorien zugeordnet werden.
D.h es gibt eine Tabele mit Sollwerten wie z.B.: Edeka, Rewe, DM,...

Das Makro soll nun den Kontoauszug nach dem Inhalt "Edeka" usw durchsuchen.

Sofern ich den Text diekt mit in den Code einbaue "*Edeka*" funktioniert das ganze auch.

Sobald ich jedoch einen mit einem String arbeite nicht.

Bsp.:

Sub Vergleich()
    Dim j As Integer
    Dim Sollwert As String
       
    j = WorksheetFunction.CountA(Sheets("Table").Range("A8:A99999"))
    
    Sollwert = Sheets("Kategorien").Cells(5, 1)
    For i = 8 To j
    If Cells(i, 4) Like Sollwert Then MsgBox "Gefunden!"
    Next i
    
End Sub

Danke und Grüße,

Chris