Office: Stichwortverzeichnis

Hallo,

ich habe im Anhang ein Stichwortverzeichnis,
in Tabelle 2 (Produkte) habe ich eine Liste hinterlegt,
diese über die Gültigkeitsregel in C10 abrufbar ist.

ich habe eine "SUCH" Funktion die in der unteren Tabelle
ab Zeile 25 in Spalte D-H suchen soll, ob hier der Suchbegriff
auftaucht. Klappt auch alles soweit, nur geht er immer
auf den letzten Begriff, auch wenn 5 mal der gleiche auftaucht,
zeigt er nur den letzten an.

Es soll im Prinzip genau so sein, wie die Excel Suchfunktion, dass
er zuerst auf den ersten geht und dann mit "Weitersuchen" sozusagen
die nächste Firma anzeigt.

Was stimmt hier nicht?

Danke für die Hilfe - Datei Upload geht nicht

-> Allgemeiner Fehler

Tried to upload empty file

 

Hallo!

Hat dir mein Link aus der PN nicht weitergeholfen?
Durch abwechselndes Drücken von [F9] und klicken auf E1 springt die Markierung durch die Treffer in Spalte A.
Aber ob das wirklich praktischer ist als die normale Suchfunktion??

	A	B	C	D	E
1	Daten		1	aaa	Noch 6 Treffer
2	aaa
3	bbb
4	ccc
5	ddd
6	aaa
7	bbb
8	ccc
9	ddd
10	aaa
11	aaa
12	bbb
13	aaa
14	ddd
15	aaa
16

Zelle	Formel
C1	=ZELLE("Zeile")
E1	=HYPERLINK("#A"&VERGLEICH(D1;INDIREKT("A"&C1+1&":A65536");)+C1;"Noch "&ZÄHLENWENN(INDIREKT("A"&C1+1&":A65536");D1)&" Treffer")

 

Hallo,

habe ich versucht, aber die Daten sind bei mir bzw. in deinem Fall
nicht nur bei A sondern zwischen A und C weil es Produkte sind, die die Firmen herstellen, und der sucht mir nur in der einen Spalte.

Gruß Luke

P.S. warum kann ich eigentlich die Tabelle nicht anhängen oO

 

Hallo!

Bei mehreren Spalten fällt mit keine adäquate Formellösung mehr ein. Da bietet sich dann eher eine VBA-Lösung über einen Button an:

Code:

Private Sub CommandButton1_Click()
    Dim such As String, bereich As Range, z As Range, JaNein
    such = Range("E1")              'hier steht der Suchbegriff
    Set bereich = Range("A1:C10")   'in diesem Bereich wird gesucht
    Set z = bereich.Find(such)
    Do Until z Is Nothing
        z.Select
        JaNein = MsgBox("Weitersuchen?", vbYesNo)
        If JaNein = vbNo Then Exit Do
        Set z = bereich.FindNext(z)
    Loop
End Sub

PS: Dein PS beantwortet meine Signatur.

 

jetzt ist halt nur das nächste Problem, dass ich noch nie n VBA eingebaut habe... :mrgreen:

 

Hallo!

Erstelle einen ActiveX-Button (die Vorgehensweise ist je nach Excel-Version unterschiedlich), rechtsklicke diesen, wähle "Code anzeigen" und vervollständige den vorgegebenen Code-Rumpf wie oben angegeben.