---

Servus zusammen,

ich komme trotz alter Beiträge leider nicht weiter.

Ich möchte eine Listbox (Userform - Catia) mit Daten aus einer Excel-Tabelle befüllen - das Format der Listbox sollte dem Format der Excel-Tabelle entsprechen.

Excel-Tabelle:
          Spalte A      Spalte B..........   
Zeile 1:  Name1        Zahl1
Zeile 2:  Name2        Zahl2

Mein bisheriger Versuch:

Code:

---

Dim FileSys
        Set FileSys = CATIA.FileSystem

        Dim xlApp 
        Set xlApp = CreateObject("Excel.Application")

        Dim mydoc 
        Set mydoc = xlApp.Workbooks.Open("C:\Test\Test.xlsx")
     
        '+++++++++++++++++++++++++++++
        'Ab hier benötige ich Hilfe

        intAnzahlDerListboxSpalten = 2
        UserForm.ListBox1.ColumnCount = intAnzahlDerListboxSpalten
       
       
        UserForm.ListBox1 = mydoc.Worksheets("test").Range("A1:B50")

---

Schon vielen Dank
Mars

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

---

Servus

Geht vermutlich nur über eine Schleife.
Siehe zB hier

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Servus zusammen,

danke für den Hinweis. Ich bin absoluter Anfänger - deshalb habe ich in einer Test Datei erstmal probiert.
Das Programm funktioniert auch soweit, wie ich es mir vorstelle (in Excel).

Ich möchte allerdings die Daten aus der Excel Tabelle in einer UserForm Listbox im Catia anzeigen.

Nun habe ich den Code ins Catia übertragen und komme nicht weiter.

Ich bin mir nicht sicher ob ich den Code richtig programmiert habe bzgl. des Zugriff von Catia auf Excel.

Code:

---

Private Sub CommandButton1_Click()

    'Catia - Excel - Catia Kommunikation - Werte Austausch
        'Excel Starten
       
        Dim FileSys
        Set FileSys = CATIA.FileSystem

        Dim xlApp 
        Set xlApp = CreateObject("Excel.Application")

        Dim mydoc 
        Set mydoc = xlApp.Workbooks.Open("C:\Test.xlsx")
     
   
        'Filter loeschen
            If mydoc.Worksheets("Tabelle1").FilterMode = True Then mydoc.Worksheets("Tabelle1").ActiveSheet.ShowAllData
   
      '************************************
      '************************************
      'Ab hier kommt eine Fehlermeldung

        mydoc.Worksheets("Tabelle1").Range("$A$1:$E$19").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
            , 0), Operator:=xlFilterCellColor
           
            'If EntireRow(i).Hide = False Then
            Dim i As Integer
           
            For i = 3 To mydoc.Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeLastCell).Row
               
                'Gefärbte Zeile und die weisse davor einblenden
                  If mydoc.Worksheets("Tabelle1").Rows(i).EntireRow.Hidden = False Then
                    Me.ListBox1.AddItem mydoc.Worksheets("Tabelle1").Cells(i, 1).Value '& chr1 '& Cells(i, 2).Value & chr30 & Cells(i, 3).Value & chr30 & Cells(i, 4).Value & chr30 & Cells(i, 5).Value
                   
                   
                End If
            Next i
   
End Sub

---

Besten Dank und viele Grüße

Mars

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

---

Servus

Welche Fehlermeldung kommt? Schon mal nach der Fehlermeldung gesucht?
Geht es wenn du den Autofilter weg lässt?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Servus,

wenn ich den Autofilter weglasse funktioniert der Code trotzdem nicht.

Es erscheint folgende Fehlermeldung "Run Time error 1004: Die SpecialCells-Eigenschaft des Range-objekts kann nicht zugeordnet werden."

Grüße
Mars

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

---

Servus

Hast du die Referenz zur Excel-Bibliothek aktiviert?
ggf xlCellTypeLastCell durch den entsprechenden Integerwert ersetzen (siehe Excel-API).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Servus,

sorry für die späte Rückmeldung. Dein Tipp war Goldwert - die Excel Bibliothek war nicht aktiviert.

Super, vielen Dank.

VG
Mars

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