Finden mit oder kombinieren

Forumthread: Finden mit oder kombinieren

14.08.2007 18:52:56

Heinz

Hallo Excellenten,
folgendes Problem:
Ich habe zwei Spalten:
In ersten Spalte sind pro Zelle mehrere Wörter enthalten,
die jeweils mit einem Struchpunkt getrennt sind.
z.B.
Huber; Meyer; Schmidt; Kowalski;
Huber; Doran;
Kreiger; Durmwall;
Ich möchte in einer zweiten Spalte ausgeben,
ob z.B. Huber oder Doran vorkommen.
Wenn mindestens einer der vorgegebenen
Namen auftauchen, dann soll in der zweiten
Spalte z.B. eine
1 "erscheinen".
Sinngemäß (in Zelle B1):
=Wenn(Finden(Oder("Huber";"Doran"));A1;1)
Aber so geht's leider nicht.
Ich freue mich auf Eure Vorschläge und
wünsche allen einen schönen Abend.
MFG
Heinz

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Finden mit oder kombinieren

14.08.2007 19:40:12

Chaos
AW: Finden mit oder kombinieren

14.08.2007 19:49:25

Jörg
Huber und/oder Doran per Formel

14.08.2007 19:49:29

WF
AW: Huber und/oder Doran per Formel

15.08.2007 10:49:00

Heinz
noch eine Variante

15.08.2007 20:30:00

FP

AW: Finden mit oder kombinieren

14.08.2007 19:40:12

Chaos

Servus Heinz,
per Makro könnte man das so lösen:


Sub schau()
Dim z As Range, b As Range, z1 As Range, b1 As Range
Dim n As String, s As String
Dim r As Long
r = Range("A65536").End(xlUp).Offset(0, 0).Row
Set b = Range("A1:A" & r)
For Each z In b
On Error Resume Next
s = z.Find(what:="Huber", LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,  _
MatchCase:=False).Row
Range("B" & s).Value = 1
Next z
Set b1 = Range("A1:A" & r)
For Each z1 In b1
On Error Resume Next
n = z1.Find(what:="Doran", LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Row
Range("B" & n).Value = 1
Next z1
End Sub

Hier wird jetzt Spalte A im beschriebenen Bereich abgesucht und in Spalte B eine 1 geschrieben, wenn vorhanden.
Gruß
Chaos

AW: Finden mit oder kombinieren

14.08.2007 19:49:25

Jörg

Hallo Heinz
=WENN(ZÄHLENWENN(A1;"*Huber*")+ZÄHLENWENN(A1;"*Doran*");1;0)
Gruß Jörg

Huber und/oder Doran per Formel

14.08.2007 19:49:29

Hi Heinz,
=(ISTZAHL(FINDEN("Huber";A1))+ISTZAHL(FINDEN("Doran";A1))>0)*1
und runterkopieren
Salut WF

AW: Huber und/oder Doran per Formel

15.08.2007 10:49:00

Heinz

Hallo Excellenten,
vielen Dank.
Da ich mit Makros nicht so viel
am Hut habe (bewundere aber
alle, die damit umgehen können), bevorzuge ich
die Formel-Lösung von WF.
Aber Danke an alle (ist immer
gut wenn man mehrere Alternativen
hat).
Schönen Tag noch
Heinz

noch eine Variante

15.08.2007 20:30:00

Hallo Heinz,
=ODER(WECHSELN(A1;{"Huber";"Doran"};)A1)+0

Infobox / Tutorial

Finde, was du suchst: Kombinationen in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel zu prüfen, ob bestimmte Wörter in einer Zelle enthalten sind, kannst du die folgenden Schritte ausführen:

Daten eingeben: Trage in Spalte A die Namen ein, die du überprüfen möchtest. Beispiel:
```
Huber; Meyer; Schmidt; Kowalski;
Huber; Doran;
Kreiger; Durmwall;
```
Formel verwenden: In Zelle B1 gib folgende Formel ein, um zu überprüfen, ob "Huber" oder "Doran" in A1 enthalten sind:
```
=WENN(ZÄHLENWENN(A1;"*Huber*")+ZÄHLENWENN(A1;"*Doran*");1;0)
```
Diese Formel zählt, ob einer der Namen vorkommt und gibt 1 zurück, wenn dies der Fall ist.
Formel nach unten kopieren: Ziehe die untere rechte Ecke der Zelle B1 nach unten, um die Formel auf die restlichen Zellen in Spalte B anzuwenden.

Häufige Fehler und Lösungen

Formel funktioniert nicht: Stelle sicher, dass du Semikolons (;) als Trennzeichen verwendest, wenn deine Excel-Version dies erfordert. In einigen Versionen kann das Komma (,) nötig sein.
Falsche Ergebnisse: Überprüfe, ob die Namen korrekt geschrieben sind und keine zusätzlichen Leerzeichen enthalten.

Alternative Methoden

Wenn du mit Formeln nicht vertraut bist oder eine andere Lösung bevorzugst, kannst du auch ein Makro verwenden. Hier ist ein einfaches Beispiel:

Sub schau()
    Dim z As Range
    Dim r As Long
    r = Range("A65536").End(xlUp).Row
    For Each z In Range("A1:A" & r)
        If InStr(z.Value, "Huber") > 0 Or InStr(z.Value, "Doran") > 0 Then
            z.Offset(0, 1).Value = 1
        End If
    Next z
End Sub

Führe dieses Makro aus, um automatisch in Spalte B eine 1 zu setzen, wenn "Huber" oder "Doran" in den Zellen der Spalte A gefunden wird.

Praktische Beispiele

Einfaches Beispiel:
- Spalte A: Huber; Meyer; Schmidt; Kowalski;
- Ergebnis in Spalte B: 1 (da "Huber" gefunden wurde)
Komplexeres Beispiel:
- Spalte A: Müller; Huber; Doran; Schmidt;
- Ergebnis in Spalte B: 1 (da sowohl "Huber" als auch "Doran" gefunden wurden)

Tipps für Profis

Nutze die Funktion ODER, um mehrere Bedingungen zu kombinieren:

=ODER(ISTZAHL(FINDEN("Huber";A1)); ISTZAHL(FINDEN("Doran";A1))) * 1

Denke daran, die Formeln so anzupassen, dass sie auch mit anderen Namen oder Kombinationen funktionieren.

FAQ: Häufige Fragen

1. Kann ich die Suche nach mehr als zwei Namen erweitern?
Ja, du kannst die Formeln anpassen, indem du weitere ZÄHLENWENN-Funktionen oder FINDEN-Funktionen hinzufügst.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten Excel-Versionen, solange die Funktionen WENN, FINDEN und ZÄHLENWENN unterstützt werden.

Beliebteste Forumthreads (12 Monate)