wie kann man Zahlen suchen!
In der Zelle ist eine Zahlenfolge z. B. 123456789 (A1)
in B1 soll die Zahlenfolge 2345 in A1 gesucht werden. Ist die Zahlenfloge vorhanden, so soll die Zahl 20 ausgeben werden.
Gruß
Lemi
=WENN(UND(ISTFEHLER(SUCHEN("*" &B1 & "*";A1;1))=FALSCH;B1"");20;"nothing")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A As String, B As String
A = Range("A1")
B = Range("B1")
If InStr(1, A, B, vbTextCompare) > 0 And B "" Then Range("C1") = 20 Else Range("C1") = _
33
End Sub
A | B | C | D | E | |
24 | 0049123456 | DE | 0049 | DE | |
25 | 0050123457 | FR | 0050 | FR | |
26 | 0051123458 | HL | 0051 | HL | |
27 | 0049123459 | DE | |||
28 | 0052123460 |
verwendete Formeln | ||
Zelle | Formel | Bereich |
B24 | =WENN(ISTFEHLER(SVERWEIS(LINKS(A24;4);$D$24:$E$26;2;0));"";SVERWEIS(LINKS(A24;4);$D$24:$E$26;2;0)) | |
B25 | =WENN(ISTFEHLER(SVERWEIS(LINKS(A25;4);$D$24:$E$26;2;0));"";SVERWEIS(LINKS(A25;4);$D$24:$E$26;2;0)) | |
B26 | =WENN(ISTFEHLER(SVERWEIS(LINKS(A26;4);$D$24:$E$26;2;0));"";SVERWEIS(LINKS(A26;4);$D$24:$E$26;2;0)) | |
B27 | =WENN(ISTFEHLER(SVERWEIS(LINKS(A27;4);$D$24:$E$26;2;0));"";SVERWEIS(LINKS(A27;4);$D$24:$E$26;2;0)) | |
B28 | =WENN(ISTFEHLER(SVERWEIS(LINKS(A28;4);$D$24:$E$26;2;0));"";SVERWEIS(LINKS(A28;4);$D$24:$E$26;2;0)) |