---

Hallo Zusammen,
Wir verstehen nicht warum i hier immer -1 ist.
XLS Tabelle Spalte wird gefunden ! Fehler kommt erst bei der Nutzung von i !

Code:

---

MultiValue.List("Bohrbild_Oben") = GoExcel.CellValues("SSH_rev00.xls", "Tabelle1", "W25", "W35")
i = GoExcel.FindRow("SSH_rev00.xls", "Tabelle1", "Ausf2","=",Bohrbild_Oben)
MessageBox.Show(i, Bohrbild_Oben)

' obere Platte
B1 = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "L" & i)
If Plattenanzahl = 1 Then B2 = B6+2*B5 Else B2 =GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "M" & i)
B3 = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "N" & i)
B4 = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "O" & i)
B5 = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "P" & i)
B6 = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "Q" & i)
B7 = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "R" & i)
B10 =GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "S" & i)
Zeichnung = GoExcel.CellValue("SSH_rev00.xls", "Tabelle1", "A" & i)

'Unter Platte zum Aufschrauben auf Grundplatte
F6 = 120 mm
F7 = 150 mm
F8 = 150 mm
F9 = 14.5 mm
F10 = 120 mm
'Extrusion
HT = LängeHT  - UPlatteDick

---

Hat uns jemand einen Tip ?
Dank / Gruß
Timo

------------------
Timo

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

---

Das kann doch so ohne das zugehörige Drumherum niemand nachvollziehen! 

Du musst es ausführlicher erklären.

Ich rate aber trotzdem mal: vielleicht muss i nach dem & als String eingesetzt werden.

------------------
Roli  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde höchstwahrscheinlich nach ihrer Erstellung von Doc Snyder noch ein Mal editiert.]

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

---

Danke für Deine Antwort !
Ich habs mit hilfe von Autodesk gelöst. Das mit dem String hat auch nicht funktioniert aber follgender Work Around !

Code:

---

Sub Main()

'ExcelPath = "SSH_rev01.xls" As String
SheetName = "Tabelle1"
ColumnLetter = "U"
'MatchValue = "xxx"
Dim EXLTAB As String = "SSH_rev01.xls"
Dim HERST As String = Hersteller

MultiValue.List("Hersteller") = GoExcel.CellValues(EXLTAB, "Tabelle1", "U25", "U35")
i = GetExcelRow(EXLTAB, SheetName, ColumnLetter,HERST)

'MessageBox.Show(i, HERST)

' obere Platte
B1 = GoExcel.CellValue(EXLTAB, SheetName, "L" & i)
B2 = GoExcel.CellValue(EXLTAB, SheetName, "M" & i)
B3 = GoExcel.CellValue(EXLTAB, SheetName, "N" & i)
B4 = GoExcel.CellValue(EXLTAB, SheetName, "O" & i)
B5 = GoExcel.CellValue(EXLTAB, SheetName, "P" & i)
B6 = GoExcel.CellValue(EXLTAB, SheetName, "Q" & i)
B7 = GoExcel.CellValue(EXLTAB, SheetName, "R" & i)
B10 = GoExcel.CellValue(EXLTAB, SheetName, "S" & i)
Plattenanzahl =GoExcel.CellValue(EXLTAB, SheetName, "V" & i)
LöcherPlatte1 =GoExcel.CellValue(EXLTAB, SheetName, "W" & i)
LöcherPlatte2 =GoExcel.CellValue(EXLTAB, SheetName, "X" & i)
Zeichnung = GoExcel.CellValue(EXLTAB, SheetName, "A" & i)

'Unter Platte zum Aufschrauben auf Grundplatte
F6 = 120 mm
F7 = 150 mm
F8 = 150 mm
F9 = 14.5 mm
F10 = 120 mm
'Extrusion
HT = LängeHT  - UPlatteDick
iProperties.Value("Custom", "Zeichnung") = Zeichnung
'iProperties.Value("Zeichnung", Zeichnung)

End Sub

Public Function GetExcelRow(EXLTAB As String, SheetName As String, ColumnLetter As String, HERST As String ) As Integer
CellVal="XXX"
i=1
Do Until CellVal=""
CellVal=CStr(GoExcel.CellValue(EXLTAB, SheetName, ColumnLetter & i))
If HERST = CellVal Then
GetExcelRow = i
Exit Function
End If
i=i + 1
Loop
End Function

---

------------------
Timo

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