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