|
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
|