Toll erklärt, kannst Du das zufällig auch anders herum? Ich habe eine Worddatei in der ich schon alle möglichen funktionierenden Makros habe und möchte dort gerne eine Exceltabelle öffnen (den Teil bekomme ich ohne Eleganz hin), dann aus einer Spalte die ein Länderkürzel beinhaltet und einer Zeile mit einem Zeilen Kopf den kreuzenden Text auslesen.

z.B. Excel C:\Exceltabelle.xlsx öffnen

Dort gibt es Spalten (A1=nichts, B1=Deutsch, C1=Englisch, etc.)

In A2, A3, A4, etc stehen als Zeilenüberschrift Produktcodes, sagen wir in A4 steht das Produkt "ABC".

Dafür möchte ich an einer definierten Textmarke in Word springen (kann ich schon) und den passenden Text einfügen.

Wie bekomme ich den passenden Text aus Excel? Ich dachte irgendwie so:

Dim objWorkbook as object (mit Exceldatei, die ich bereits von Word aus geöffnet habe)

Dim sText as String (für das Produkt)

Dim icol as Range (für die richtige Spalte)

'  iCol = objWorkbook.WorksheetFunction.Match(sText, lRow, False)

  iCol = objWorkbook.sheets(1).Find(What:="DE").Column

'  iCol = objWorkbook.sheets(1).Range("A1:E1").Find(What:=sText, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column

'  iCol = Range("1:1").Find(lRow, sText, xlValues)

Das funktioniert alles nicht, hast jemand bessere Ideen???

Es ist bestimmt einfach...