Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  GoExcel.FindRow ILogic Problem ?

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   GoExcel.FindRow ILogic Problem ? (1927 mal gelesen)
TH-Sulzer
Mitglied
Konstrukteur


Sehen Sie sich das Profil von TH-Sulzer an!   Senden Sie eine Private Message an TH-Sulzer  Schreiben Sie einen Gästebucheintrag für TH-Sulzer

Beiträge: 19
Registriert: 21.07.2011

erstellt am: 26. Okt. 2011 13:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Doc Snyder
Moderator
Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen




Sehen Sie sich das Profil von Doc Snyder an!   Senden Sie eine Private Message an Roland Schröder  Schreiben Sie einen Gästebucheintrag für Roland Schröder

Beiträge: 12124
Registriert: 02.04.2004

IV 2017 + 2018 + 2019
W7pro64 F-Secure-Safe
Dell-M4600 2,13GHz 8GB Quadro2000M
15,4"1920x1080, am Dock: 27"2560x1440
MS-IntelliMouse-Optical SpacePilotClassic

erstellt am: 27. Okt. 2011 00:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TH-Sulzer 10 Unities + Antwort hilfreich

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

TH-Sulzer
Mitglied
Konstrukteur


Sehen Sie sich das Profil von TH-Sulzer an!   Senden Sie eine Private Message an TH-Sulzer  Schreiben Sie einen Gästebucheintrag für TH-Sulzer

Beiträge: 19
Registriert: 21.07.2011

erstellt am: 27. Okt. 2011 08:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2019 CAD.de | Impressum | Datenschutz