---

Hallo,

bin gerade dabei ein einfaches Skript mit Benutzeroberfläche zu schreiben. Da ich sowas zum ersten Mal mache, bin ich da noch etwas wackelig unterwegs.

Folgendes Problem:
Beim Klick auf eine Schaltfläche, soll ein Listenfeld mit Werten gefüllt werden. Die Werte sollen aus einem Array kommen, den ich im Vorfeld schon mit Werten gefüllt habe.

Der Code für den Schaltflächenklick sieht folgendermassen aus.

Private Sub COM_Show_SNR_Click()

Dim a As Variant

For Each a In arr_snr
    Me.List_SNR.AddItem (a)
Next

End Sub

Es kommt aber immer die Fehlermeldung dass die Typen unverträglich sind, und es wird die Zeile mit "for each" markiert. Irgendwie stehe ich da gerade auf dem Schlauch.

Vielleicht kann mir da jemand weiterhelfen.

Viele Grüsse
Crio

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

---

Wie und wo ist die Variable arr_snr definiert?

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

---

das for each geht meines wissens nach nicht mit arrays

probier mal sowas

Code:

---

For i = LBound(arr_snr) to UBound(arr_snr)
    Me.List_SNR.AddItem arr_snr(i)
Next

---

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

---

Hallo,

das mit "For each" ist mit den Arrays eigentlich kein Problem, da ich das im vorhergehenden Makrolauf schon verwendet habe. Also das läuft eigentlich.

Der Array arr_snr() ist im vorhergehenden Code definiert.

Private Sub UserForm_Initialize()

Dim mydoc As Document
Dim myroot As Product
Dim mypart As Part
Dim arr_snr()

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

---

Zitat:

---

das mit "For each" ist mit den Arrays eigentlich kein Problem, da ich das im vorhergehenden Makrolauf schon verwendet habe.

---

- wieder was gelernt.. :-)

wenn du 'arr_snr()' in der 'Sub UserForm_Initialize' deklarierst, ist das array auch nur in dieser sub gültig.
Versuch mal 'arr_snr()' als public array ganz oben im modul zu deklarieren, noch vor der ersten function oder sub

Code:

---

Public arr_snr()

Private Sub UserForm_Initialize()

Dim mydoc As Document
Dim myroot As Product
Dim mypart As Part
'''Dim arr_snr() ' <- diese zeile muss dann weg

..
..
End Sub

---

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

---

Hallo,

jetzt funktioniert es.
Es klappt allerdings nur wenn ich die Variable nicht als Public beschreibe (siehe Code)

Option Explicit

Dim arr_snr()

Private Sub UserForm_Initialize()

Sobald ich Public mache, kommt die Fehlermeldung - "Konstanten, Zeichenketten fester Länge, benutzerdefinierte Datenfelder und Declare-Anweisungen sind als Publicelemente von Objektmodulen nicht zugelaseen."

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