CreateObject auf MacOS

Kunu · 2024-04-28T20:05:21+00:00

Hallo, ich habe eine UserForm in der eine ComboBox gefüllt wird aus einer Tabelle. Um Duplikate zu vermeiden habe ich folgenden Code: Dim hshA As Object Dim i As Long Set hshA = CreateObject("Scripting.Dictionary") With ThisWorkbook.Sheets("Ziele") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row hshA(.Cells(i, 1).Text) = 0 Next Me.Strecke1.List = hshA.keys End With Set hshA = Nothing Auf Windows funktioniert es ohne Probleme, auf dem Mac kommt der Fehlercode 429. Soweit ich das herausfinden konnte ist "CreateObject" das Problem weil da eine Windwos Funktion angesprochen wird die es natürlich auf dem Mac nicht gibt. Gibt es eine Alternative oder eine Möglichkeit es so zu schreiben dass es auch auf dem Mac funktioniert? Vielen Dank schonmal. Grüße

Ja, du hast recht. Das Problem liegt daran, dass CreateObject nicht auf Mac funktioniert, da es eine Windows-spezifische Funktion ist. Eine Alternative wäre die Verwendung der Collection-Klasse, die plattformunabhängig ist. Hier ist eine modifizierte Version deines Codes, der die Collection-Klasse verwendet:

Dim coll As New Collection

Dim cellValue As Variant

Dim i As Long



With ThisWorkbook.Sheets("Ziele")

    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

        cellValue = .Cells(i, 1).Value

        If Not IsError(cellValue) Then ' Check if cell value is not an error

            On Error Resume Next ' Skip error if item already exists in collection

            coll.Add cellValue, CStr(cellValue) ' Convert to string to avoid type mismatch

            On Error GoTo 0 ' Re-enable error handling

        End If

    Next i

End With



' Transfer items from collection to an array

Dim items() As Variant

ReDim items(1 To coll.Count)

For i = 1 To coll.Count

    items(i) = coll(i)

Next i



' Fill ComboBox with unique items

Me.Strecke1.List = items

Dieser Code erstellt eine Collection namens coll, um die eindeutigen Werte zu speichern. Dann wird eine Schleife durch die Zellen der Tabelle durchlaufen, und jedes eindeutige Element wird der Sammlung hinzugefügt. Schließlich werden die eindeutigen Elemente aus der Sammlung in ein Array übertragen und das ComboBox-Steuerelement damit gefüllt. Dies sollte plattformunabhängig funktionieren.

Ich hoffe der Code klappt soweit?

' Autor und Copyright: Valery Bidakovsky
' Homepage: https://www.vb-analyst.de

Guten Morgen,
vielen Dank für eure schnellen Antworten!
Und ein dickes Danke an VBAnalyst, der Code funktioniert einwandfrei.
Jetzt ergibt sich aber eine Folgefrage:
Ich habe abhängige Comboboxen also der Inhalt der ComboBox2 hängt von der Auswahl der ComboBox 1 ab.
Das hatte ich mit folgenden Code gelöst:

Private Sub Strecke2_Change()

    Dim oDic2 As Object

    Dim i As Long

    

    Set oDic2 = CreateObject("Scripting.Dictionary")

    Me.Strecke3.Clear

    Me.Strecke4.Clear

    

    With ThisWorkbook.Sheets("Ziele")

        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

            If .Cells(i, 2) = Me.Strecke2 Then

                oDic2(.Cells(i, 3).Text) = 0

            End If

        Next

        Me.Strecke3.List = oDic2.keys

    End With

    

    Set oDic2 = Nothing

End Sub

Da hätte ich dann wieder das selbe Problem mit CreateObject. Ich habe mit deinem Code rumprobiert aber ich bekomme immer nur alle Ergebnisse in der zweiten Spalte aber nicht abhängig von der Auswahl aus der ComboBox1.
Vielen Dank schonmal für eure Mühen.

Grüße

Forumthread: CreateObject auf MacOS

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

CreateObject auf MacOS

Forumthread: CreateObject auf MacOS

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread