Hallo Amicro,

erstmal vielen dank für deine schnelle Antwort!!

Zu deiner Frage: ("Du läst ja nur nach den Überschriften suchen, die eh nur inzeile 1 sind, oder? Dann wird nur das unter diesen gefundenen                                                                      Überschriften zurück gegeben. Ist das richtig so?")

                            -->      Ja genau. Es sollen dann immer genau die Einträger in der zweiten Zeile für jeden Suchbegriff ausgegeben werden.

Den ersten Fehler habe ich grade schon endeckt. In der folgenden Zeile ist am Ende ein "s" zu viel gewesen:

lcolumn = TS.Cells(1, Columns.Count).End(xlToLeft).Columns + 1      (falsch)

lcolumn = TS.Cells(1, Columns.Count).End(xlToLeft).Column + 1         (richtig)

Jetzt läuft das Makro durch, allerdings mit einem für mich sehr merkwürdigen Ergebnis: 

In Zeile 1 meiner Excel-Datei stehen meine gesuchten Begriffe aus Excel-Liste 1

In Zeile 2 bis 14 steht nichts

und in Zeile 15 stehen meine gesuchten Begriffe aus Excel-Liste 6

Desweiteren könnte ich rausfinden, dass beim Durchlaufen des Makros die Daten nach Durchlauf 1 immer in die Zeile 15 geschrieben werden. Also in Durchlauf 2 der Makroschleife stehen die Ergebnisse aus Excel-Liste 2 in Zeile 15, nach Durchlauf 3 der Makroschleife stehen die Ergebnisse der Excel-Liste 3 in Zeile 15......bis am Ende das oben beschriebene Ergebnis herauskommt (in Zeile 15 stehen am Ende die Daten der Excel-Liste 6)

Ich hoffe das man meine Beschreibung versteht?! wenn nicht schreibe ich das gerne nochmal! einfach bescheid sagen!

ps: kann man hier ein Screenshot mit hochladen? dann könnte ich das Ergebnis des Makros mit reinstellen. Das würde es evtl um einiges erleichtern?!

Beste Grüße

Philipp (Pbrue)