---

Eigenschaften1.JPG Eigenschaften2.JPG

Hallo Leute,

ich versuch zur Zeit per Macro au zwei Benutzerdefinierten Eigenschaften zusätzlich eine dritte zu erzeugen.

Per "Hand funktioniert es wie ich mir es vorstelle (siehe Bild), nun möchte ich es noch im Macro haben.

Die Suche im Forum war bis jetzt erfolglos.

Gruß Stefan

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

---

Hi,

kann vielleicht sein das es an den Anführungszeichen liegt  --> Chr(34)

Google mal, da findet sich bestimmt was......

Gruß

------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen !

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

---

Hallo Stefan

Gibt es die Eigenschaft(19) bzw. "Description" schon in deinem Dokument?
Wenn nicht, musst du sie zuerst erstellen.

Die "For"-Schleife muss mit einem "Next" abgeschlossen werden.

"$PRP:" & Chr$(34) & "ZEICHNAME" & Chr$(34) kann man auch so schreiben "$PRP:""ZEICHNAME""", funtionieren tut aber beides.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Eigenschaften3.JPG Eigenschaften4.JPG

Hallo Andreas,
erst mal Danke für den Zaunpfahl, das "NEXT" hab ich total übersehen.

Ja die Eigenschaft "Description" wird auch in dem Macro erzeugt.

Die Einbindung der Eigenschaft "ZEICHNAME" klappt jetzt, aber wie bekomm ich die zweite Eigenschaft "ZEICHNAME2" mit ca. 15 Leerzeichen noch dazu???

Grüß Stefan

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

---

Moin Stefan,

du gebrauchst eigentlich gar keine FOR-NEXT-Schleife, da diese laut deinem
Screenshot nur ein einziges Mal durchlaufen wird. Du könntest es wie folgt handhaben:

Code:

---

i = 19
swModel.CustomInfo2("", Eigenschaft(i)) = "PRP:""ZEICHNAME"" & "PRP:""ZEICHNAME2""

---

------------------
==========
Gruß
Andreas
==========

[Diese Nachricht wurde von ad_man am 23. Jun. 2015 editiert.]

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

---

Hallo Stefan

Leerzeichen kannst du mit dem Befehl Space() erstellen.

Code:

---

swModel.CustomInfo2("", Eigenschaft(i)) = "$PRP:" & Chr$(34) & "ZEICHNAME" & Chr$(34) & Space(15) & "$PRP:" & Chr$(34) & "ZEICHNAME2" & Chr$(34)

---

oder so

Code:

---

swModel.CustomInfo2("", Eigenschaft(i)) = "PRP:""ZEICHNAME""" & Space(15) & "PRP:""ZEICHNAME2"""

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Morgen Andreas und Andreas,

hat super geklappt!!!javascript:InsertSMI(' %20');

Danke für die Hilfe.

euch noch nen schönen Tag.

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