|
Hi :),
ich brauche dringend eure Hilfe. Ich habe ein Sheet und alles läuft soweit einwandfrei wie ich es mir vorstelle.
Ich möchte, dass was in B3 und C3 steht in der "Database" suchen und was dort dann in "C" steht ausgeben.
Das klappt aber nur wenn ALLES matched. Sprich Beispiel:
B3= Mustermann GmbH (darf exakt zutreffen)
C3=Gebäude 100, Müllerstraße 20 (kann zutreffen, aber tut es meist nicht)
Ergebnis in dem Fall: Negativ, da in "C" Gebäude 100, Müllerstr. 20 steht
Ich möchte, dass er das findet, weil z.B. 100 und 20 darin vorkommt und B3 exakt zutrifft.
Set key = Workbooks("Database.xlsx").Worksheets(1)
Set rep = ThisWorkbook.Worksheets(1)
Kunde = rep.Range("B3")
Gebäude = rep.Range("C3")
Workbooks("Database.xlsx").Activate
i = 1
Do While key.Range("A" & i) <> ""
If InStr(key.Range("A" & i), Kunde) > 0 And InStr(key.Range("B" & i), Gebäude) > 0 Then keynumber = key.Range("C" & i): Exit Do
i = i + 1
Loop
MsgBox ("Kundenschlüssel ist: " & keynumber), vbOKOnly, "Schlüssel"
|