Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Combobox füllen

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Combobox füllen (841 mal gelesen)
Fiedel93felix
Mitglied
Konstrukteur


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

Beiträge: 448
Registriert: 19.02.2014

Autodesk Inventor 2014
Microsoft Visual Basic 2010

erstellt am: 02. Dez. 2014 10:15    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 miteinander,
ich arbeite grad an einer Eingabemaske welche zur auswahl eine bestimmten Modells dienen soll.

Dabei hänge ich grade bei der verknüpfung zu einer Excel Tabelle.
Das heißt ich will eine ComboBox (Name:cbHub) mit werten aus einer Spalte füllen.
Allerdings werden nicht die Werte in die ComboBox übernommen sondern immer blos "System._ComObject".
Ich hab schon paar Stunden gesucht und ausprobiert aber es ist immer wieder das gleiche.

Ich hoff mir kann jemand helfen.

TabKom = Pfad der Tabelle

Code:

        Dim xlApp2 As Object, xlWB2 As Object
        On Error Resume Next
        xlApp2 = GetObject(, "Excel.Application")
        If Not xlApp2 Is Nothing Then
            xlWB2 = GetObject(TabKom)
            If xlWB2 Is Nothing Then
                xlApp2.workbooks.Open(TabKom)
            End If
        Else
            xlApp2 = CreateObject("Excel.Application")
            xlApp2.workbooks.Open(TabKom)
        End If
        xlWB2 = GetObject(TabKom)

        With xlWB2.Sheets("axial")

            'soll die Werte aus B5:B10 in die Combo einlesen
            Dim i As Integer
            For i = 5 To 10

                cbHub.Items.Add(xlWB2.Sheets("axial").Cells(i, 2))
            Next
        End With
        xlApp2.Close(False) : xlWB2.Close(False) : xlApp2 = Nothing : xlWB2 = Nothing

MfG Felix

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

Chris 31
Mitglied
Konstrukteur und Mädchen für alles


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

Beiträge: 575
Registriert: 23.04.2013

Inventor 2015 Professional
Windows 7 64 bit
16GB RAM
nVidia Quadro 600

erstellt am: 02. Dez. 2014 12: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 Fiedel93felix 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Fiedel93felix:

                cbHub.Items.Add(xlWB2.Sheets("axial").Cells(i, 2))



probiers doch mal mit

Code:
cbHub.Items.Add(xlWB2.Sheets("axial").Cells(i, 2).Value)

oder

Code:
cbHub.Items.Add(xlWB2.Sheets("axial").Cells(i, 2).Expression)

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

Chris

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

Fiedel93felix
Mitglied
Konstrukteur


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

Beiträge: 448
Registriert: 19.02.2014

Autodesk Inventor 2014
Microsoft Visual Basic 2010

erstellt am: 02. Dez. 2014 12:06    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

Okay danke Chris jetzt klapps....

manchmal steht man echt aufm Schlauch 

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



Werkstudent (m/w/d) Engineering - Produktentwicklung

Die Rite-Hite GmbH ist eine Tochtergesellschaft der amerikanischen Rite-Hite Corporation, die mit weltweit mehr als 3000 Mitarbeitern und einem globalen Netzwerk aus Fertigungsstätten und Niederlassungen zu den führenden Unternehmen in der Entwicklung, Fertigung und dem Vertrieb von Produkten und Lösungen im Bereich Intralogistik zählt. Am Entwicklungs- und Produktionsstandort in Volkmarsen, ...
Anzeige ansehenMaschinenbau
Chris 31
Mitglied
Konstrukteur und Mädchen für alles


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

Beiträge: 575
Registriert: 23.04.2013

Inventor 2015 Professional
Windows 7 64 bit
16GB RAM
nVidia Quadro 600

erstellt am: 02. Dez. 2014 12:16    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 Fiedel93felix 10 Unities + Antwort hilfreich

Das kenne ich 

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

Chris

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)2023 CAD.de | Impressum | Datenschutz