---

Hallo Zusammen,
ich bin auf der Suche nach einer Lösung, den folgenden Code so zu ändern, dass ich statt der Eingabe der Reihe eine Artikelnummer (ca. 50.00 Stück), die sich in einer Spalte befindet, eingeben muss.
Aufgrund der gefundenen Artikelnummer, wird die Reihe gemerkt und an die iProperties übergeben.

Code:

---

doc = ThisDoc.Document
GoExcel.Open("C:\iproperties.xlsx", "Sheet1")
'Open Excel file
MyRow = InputBox("Please input Row to import", "Import Row", "2")
'Prompt User to choose row to read in,
'get the iProperty from selected Row for each column
Try
iProperties.Value(doc, "Summary", "Author") = GoExcel.CellValue("A" &
MyRow)
Catch 'catch error when cell is blank
End Try
Try
iProperties.Value(doc, "summary", "Company") = GoExcel.CellValue("B" &
MyRow)
Catch
End Try
Try
iProperties.Value(doc, "Summary", "Comments") = GoExcel.CellValue("C" &
MyRow)
Catch
End Try

---

Vielen Dank schon jetzt und viele Grüße

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Martin,
schau mal, ob das unten das tut, was du möchtest.

Code:

---

doc = ThisDoc.Document
GoExcel.Open("C:\iproperties.xlsx", "Sheet1")
'Open Excel file
dim ID as string
dim Inhalt as string

'Prompt User to choose ID to read in

ID = InputBox("Please input ID to import", "ID", "2")
if ID is nothing then
msgbox ("No valid ID!")
Exit Sub
end if

'get the Row from selected ID

for i=1 to 51
inhalt=GoExcel.CellValue("A" & i)

if Inhalt=ID then
myrow=i
Exit for
else i=i+1
end if
next

'Try wird überflüssig, weil Zelle nicht leer sein kann
iProperties.Value(doc, "Summary", "Author") = GoExcel.CellValue("A" & MyRow)

iProperties.Value(doc, "summary", "Company") = GoExcel.CellValue("B" & MyRow)

iProperties.Value(doc, "Summary", "Comments") = GoExcel.CellValue("C" & MyRow)

---

------------------
MFG

Chris

[Diese Nachricht wurde von Chris 31 am 13. Nov. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Chris, vielen Dank - funktioniert!   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bitte, immer wieder gerne

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP