---

Hallo,

ich hab hier eine Anfänger Frage bezüglich dem Zuordnen von 3D Materialien:

Ich würde gerne ein Material (welches schon in der Zeichnung existiert)  aus einer Excel Zelle lesen und dann als aktives Material im Dokument setzen. (Wie ich die Information aus Excel bekomme, weiß ich schon)

So lautet mein bisheriger Code:

Dim oMaterial As AcadMaterial
Set oMaterial = ThisDrawing.Materials("Onyx")
ThisDrawing.ActiveMaterial = oMaterial

Dieser setzt das aktive Material halt auf Onyx, aber Onyx ist ein fixer Paramter den ich gerne vorher definieren würde.

sowas wie ThisDrawing.Materials(shtObj.Cells(3, 7))
(in der Zelle 3,7 soll den der Name das Materials stehen - also hier Onyx)

Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt und dass mir jemand bei meinem Problem helfen kann.

Danke schonmal!

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

---

Hi,

Du hast den Code geschrieben, für einmal 'hardcoded' und einmal 'Materialname aus Excel-Zelle', was wäre da noch offen? Oder bekommst Du einen der beiden Varianten nicht zum laufen?

- alfred -

------------------
www.hollaus.at

---

Hallo Alfred,

das Problem ist, dass der Hardcode funktioniert, aber die Zellenabfrage nicht (die Zellenabfrage von anderen Zelleninhalten klappt hingegen einwandfrei!)

hab auch schon sowas wie ThisDrawing.Materials("shtObj.Cells(3, 7)") probiert - aber das kann natürlich nicht funktionieren...

Übrigens sehe ich gerade dass ich mein Post aus versehen nicht im VBA Teil gemacht habe - kann ein Admin bitte mein Post in das Unterforum verschieben?

Danke schonmal und sorry...

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

---

Hi,

probier mal

Call Debug.Print(shtObj.Cells(3, 7))

ich vermute fast, dass das Ergebnis hier nicht "Onyx" ist.

- alfred -

------------------
www.hollaus.at

---

Habs jetzt rausgefunden!

ich bin ein Umweg über "Dim Mat As String" gegangen und jetzt klappts (ich glaub ein Anfänger Fehler?)

hier ist der Code:

Dim Mat As String
Dim oMaterial As AcadMaterial
Mat = shtObj.Cells(7, 3)
    Set oMaterial = ThisDrawing.Materials(Mat)
        ThisDrawing.ActiveMaterial = oMaterial

Dank Dir Alfred für Deine Bemühungen!

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