---

Hallo zusammen,

ich versuche mich gerade an einem vba-Macro, das mit Excel und CATIA arbeitet. Hierbei will ich aus einer Schleife heraus jeweils ein kurzes sub aufrufen und dabei eine Variable übergeben, die von der Schleife abhängt.
Über

Call EinUndAusblenden((i), (Merkmal(i)))

wollte ich die jeweilige Variable Merkmal(i) übergeben, die beim ersten Durchlauf der Schleife Merkmal1 wäre und bis 35 hochgezählt wird. In der ersten Zeile des aufrufenden Subs bekomme ich aber nichts gescheites hin.

Private Sub EinUndAusblenden (i as integer, merkmal(i) as string)

geht wegen der Klammer um das i nicht. Das muss irgendwie anders geregelt werden. Da komme ich aktuell mit meinen noch relativ bescheidenen Kentnissen leider nicht weiter. Falls jemand einen Tipp hat, wäre ich dankbar.

Grüße und ein schönes Wochenende

------------------
Windchill 9.1 Versuchskaninchen
CATIA V5 R18

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

---

Ok, sinnvoller Weise habe ich jetzt einfach in der Schleife noch eine Variable "Uebergabemerkmal" deklariert, die ich dann Uebergebe. War halt kurz vor dem Wochenende, da gibt's auch schon mal dickere Bretter vorm Kopf.... 

------------------
Windchill 9.1 Versuchskaninchen
CATIA V5 R18

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

---

Hallo Capri,
da scheint sich auch ein Gedankenfehler eingeschlichen zu haben...

So wäre es wohl richtiger.

Code:

---

Call EinUndAusblenden(i, Merkmal)

Private Sub EinUndAusblenden (i as integer, merkmal() as string)

    Dim Str as string
   
    str = merkmal(i)

end sub

---

Wenn du etwas zurückgeben musst wäre so...

Code:

---

Call EinUndAusblenden(i, Merkmal)

Private Function EinUndAusblenden (i as integer, merkmal() as string)as Integer

    Dim Str as string
   
    str = merkmal(i)
    i = i + 1
    EinUndAusblenden = i

end sub

---

Oder du übergibst direkt den Wert, dann darf es aber kein Array mehr sein.

Code:

---

Call EinUndAusblenden(i, Merkmal(i))

Private Sub EinUndAusblenden (i as integer, merkmal as string)

    Dim Str as string
   
    msgbox(merkmal)

end sub

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Servus,

danke für die ausführliche Antwort!

Grüße

------------------
Windchill 9.1 Versuchskaninchen
CATIA V5 R18

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