Buchstabensuche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Boris,
danke für die Antwort. Es funtioniert beides. (Außer das "Zählenwenn" bei reinen Ziffernfolgen den Dienst versagt).
Habe bei der ersten Variante statt:
=SUMMENPRODUKT(ZÄHLENWENN(A1;"*"&B$1:B$6&"*"))=LÄNGE(A1)
=SUMMENPRODUKT(ZÄHLENWENN($A1;"*"&$B$1:INDIREKT("B"&LÄNGE($A1))&"*"))=LÄNGE($A1),
damit bin ich nicht auf 6 Zeichen festgelegt.
Bei der zweiten Variante habe ich noch eine ZWEITE Abfrage zugefügt:
=WENN(UND(SUMMENPRODUKT(ZÄHLENWENN($A1;"*"&TEIL($E$1;ZEILE(INDIREKT("1:"&LÄNGE($E$1)));1)&"*"))=LÄNGE($A1);LÄNGE($A1)=LÄNGE($E$1));WAHR;FALSCH)
, damit bekomme ich keine zufälligen "WAHR" - Aussagen, wenn ein längeres Wort in Spalte A zufällig durch "Zählenwenn" auf die Länge des gesuchten Buchstabenstrings kommt.
______________________________________________________________________________________
Wenn das die Kür war, hab ich noch eine Frage zur Pflicht:
Herunterkopieren geht durch Autofüllung zügig. Gibt es trotzdem eine Formel, die "automatisch" alle Zeilen durchgeht und mir die Zeile nennt, inder dann das WAHR steht (vorausgesetzt es gibt nur eine Übereinstimmung) oder mir mehrere Zeilen nennt, wenn es
mehrer Übereinstimmungen gibt
Danke und viele Grüße Micha

Hallo Micha,
die Formel-Lösung von Boris hat mich inspiriert, meine benutzerdefinierte Funktion nochmal zu überarbeiten. So schaut sie jetzt aus:


Function Loesung(Worte As Range, Wort As String) As String
'Sucht Wörter, die mit einem Buchstaben-Mix übereinstimmen
'Worte: ist der Bereich mit den zu durchsuchenden Wörten
'Wort:  der Text/die Zelle mit dem Buchstabensalat
Dim I As Integer, J As Integer, Wort2 As String, Vergleich As Boolean
Wort = StrConv(Wort, vbLowerCase) 'Buchstabensalat in Kleinbuchstaben umwandeln
For I = 1 To Worte.Rows.Count
Vergleich = False
If IsEmpty(Worte(I, 1)) = False Then
If Len(Wort) = Len(Worte(I, 1)) Then
Wort2 = StrConv(Worte(I, 1), vbLowerCase) 'Wort in Kleinbuchstaben umwandeln
For J = 1 To Len(Wort)
If Anzahl(Mid(Wort, J, 1), Wort) = Anzahl(Mid(Wort, J, 1), Wort2) Then
Vergleich = True
Else
Vergleich = False
Exit For
End If
Next
If Vergleich = True Then Loesung = Loesung & Worte(I, 1) & "  "
End If
End If
Next I
End Function
Function Anzahl(Zeichen As String, Wort As String) As Integer
' Zählt, wie oft ein Buchstabe im Wort vorkommt
If Len(Wort) = 0 Then Exit Function
For J = 1 To Len(Wort)
If Mid(Wort, J, 1) = Zeichen Then Anzahl = Anzahl + 1
Next J
End Function

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread