VBA Suche mit Like ?
16.02.2009 17:08:00
ico
ich möchte gerne folgendes Problem lösen:
Spalte A enthält eine Zuordnung mir + als Wildcard
Spalte B entält einen fix zugeordneten Wert zu jedem Wert aus Spalt A
Spalte C enthält eine 8 stellige Nummer
Nun möchte ich den den ersten Wert aus Spalte C nehmen, diesen in Spalte A suchen und bei einem treffer den Wert aus Spalte B in Spalte D zu dem Suchwert eintragen lassen.
Jedes Plus kann für eine Zahl von 0-9 stehen
Bsp.
A B C D
+++3++++ 77 10039999 77
Ich habe versucht das ganze via VBA und Like zu lösen, aber die Zuordnungen sind nicht 100% richtig.
Ist der Ansatz mit Like richtig ?
Sub test()
For m = 2 To 1400
For n = 2 To 1100
If Cells(m, 3) Like Cells(n, 1) Then
Cells(m, 4 = Cells(n, 2).Value
Exit For
Else
End If
Next
Next
End Sub
Danke für jeden Tip im Voraus !
Gruß
ico