=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)) | |
Zelle vorbereiten: Stelle sicher, dass in Zelle A1 die Zahlenfolge steht, die Du durchsuchen möchtest. Zum Beispiel: 0049123456789.
Suchzahlenfolge eingeben: Gib in Zelle B1 die gesuchte Zahlenfolge ein, z. B. 0049 für die Vorwahl.
Formel eingeben: In Zelle C1 kannst Du folgende Formel verwenden, um die Zahlenfolge zu erkennen:
=WENN(ISTFEHLER(SUCHEN(B1;A1));"nothing";20)Diese Formel sucht die Zahlenfolge in der Zelle A1 und gibt 20 aus, wenn die Vorwahl gefunden wird.
Referenztabelle anlegen: Lege ab C1 eine Tabelle an, in der Du die Länderkennzeichnungen und ihre Vorwahlen auflistest.
SVERWEIS verwenden: Um die Vorwahl zu verarbeiten, kannst Du den SVERWEIS verwenden:
=WENN(ISTFEHLER(SVERWEIS(LINKS(A1;4);$D$1:$E$10;2;FALSCH));"";SVERWEIS(LINKS(A1;4);$D$1:$E$10;2;FALSCH))Diese Formel gibt die entsprechende Länderkennung aus, wenn die Vorwahl gefunden wird.
Fehler: #WERT!
Lösung: Überprüfe, ob die gesuchte Zahlenfolge in B1 korrekt eingegeben ist. Achte darauf, dass die Zellen A1 und B1 keine überflüssigen Leerzeichen enthalten.
Fehler: "nothing" wird angezeigt
Lösung: Stelle sicher, dass die gesuchte Zahlenfolge tatsächlich in der Zelle A1 vorhanden ist. Achte auch auf die korrekte Schreibweise und das passende Zahlenformat.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As String, B As String
A = Range("A1").Value
B = Range("B1").Value
If InStr(1, A, B, vbTextCompare) > 0 Then
Range("C1").Value = 20
Else
Range("C1").Value = "nothing"
End If
End SubDieser Code sucht nach der Zahlenfolge und gibt den Wert 20 in C1 aus, wenn sie gefunden wird.
Beispiel für deutsche Vorwahl: Wenn Du in A1 0049123456789 hast und in B1 0049 eingibst, zeigt C1 den Wert 20 an.
Beispiel für französische Vorwahl: Wenn Du in A1 0050123457 hast und in B1 0050 eingibst, wird ebenfalls in C1 20 angezeigt.
Verwende Datenüberprüfung: Stelle sicher, dass nur gültige Vorwahlen in B1 eingegeben werden können, indem Du die Datenüberprüfung in Excel verwendest.
Optimierung von Formeln: Nutze Array-Formeln, wenn Du mehrere Zellen gleichzeitig durchsuchen möchtest. Dies kann die Performance verbessern, insbesondere bei großen Datenmengen.
1. Wie erkenne ich, ob eine Zahlenfolge vorhanden ist?
Du kannst die Funktion SUCHEN oder FINDEN verwenden, um zu überprüfen, ob eine bestimmte Zahlenfolge in einer Zelle vorhanden ist.
2. Kann ich auch mehrere Vorwahlen gleichzeitig prüfen?
Ja, Du kannst die Formel anpassen oder sogar eine VBA-Lösung nutzen, um mehrere Vorwahlen gleichzeitig zu überprüfen.
3. Was mache ich, wenn die Vorwahl nicht gefunden wird?
In diesem Fall gibt die Formel nothing oder einen anderen von Dir definierten Wert aus. Du kannst die Formel so anpassen, dass sie eine spezifische Nachricht anzeigt.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen