Supportnet / Forum / Tabellenkalkulation

Hallo Zusammen, ich brauch dringed Eure Hilfe !!! Ich arbeite an einer sehr grossen Bücher-Bestands - Tabelle. In einer der Spalten sind die NAmen der Bücher aufgelistet. Teilweise bestehen die NAmen aus ganzen Sätzen und nicht nur aus einem Wort. Ich muss jetzt alle Bücher finden, die im Namen das Wort " Geld" haben. Es würde mir auch eine eifnache WENN FUNKTION reichen, welche mir eine 1 rausgibt, wenn das Wort im Namen gefunden wurde und eine 0 wenn nicht. Könnt ihr mir da weiter helfen ???? Gruss Bentatlim I

Hallo,

das geht so

=WENN(ISTZAHL(SUCHEN("geld";A1));1;0)

Mit folgender Formel bekommst Du die Aussage WAHR oder FALSCH

=ISTZAHL(SUCHEN("geld";A1))

Gruß
Rainer

Hallo, ich noch mal

wenn Du allerdings nur großes Geld suchst, dann so:

=ISTZAHL(FINDEN("Geld";A1))

oder so

=WENN(ISTZAHL(FINDEN("Geld";A1));1;0)

Gruß
Rainer

hi all :)

hier noch ein makro :-)

gruss nighty

Option Explicit
Sub such()
Dim suche1 As Range
Dim zaehler1 As Long
Dim schalter As Long
Dim gefunden As String
Dim ausgabe As String
Dim eingabe As String
Dim index As Long
zaehler1 = 1
ReDim fund(0)
eingabe = InputBox("Eingabe")
Do
Set suche1 = Cells.Find(What:=eingabe, After:=Sheets(1).Range("A" & zaehler1 & ":A" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(Sheets(1).Range("A" & zaehler1)))
If Not suche1 Is Nothing And suche1.Row > schalter Then
schalter = suche1.Row
Sheets(1).Cells(suche1.Row, suche1.Column).Select
fund(index) = Sheets(1).Cells(suche1.Row, suche1.Column)
zaehler1 = suche1.Row
index = index + 1
ReDim Preserve fund(index)
Else
Exit Do
End If
Loop
For zaehler1 = 0 To index
gefunden = gefunden & fund(zaehler1) & Chr$(13)
Next zaehler1
ausgabe = MsgBox("Gefundene Bücher" & Chr$(13) & gefunden, vbOK)
End Sub

hi all :-)

ist auf jedenfall verbesserungswuerdig,war auf die schnelle :-)

gruss nighty

• Wort aus dem Benützerwörterbuch entfernen
• Word Wörterbuch ändern
• Problem mit Programmteil
• Text in Zell-Range suchen
• übersetzer