---

Hallo!

Vielleicht kann mir bei folgendem Beispiel
jemand behilflich sein!

BSP.:

Sub CATMain()
Dim strPartname As String
Dim strVerzeichnis As String
strVerzeichnis = InputBox ("Verzeichnis eingeben: ")
Do
SUCHE im Verzeichnis "strVerzeichnis" ein CATPart
If CATPart gefunden
  SCHREIBE CATPart Name in strPartname
  ...
  MEIN_CODE
  ...
Else If
  End Do
Loop
End Sub

---------------------------------------------------------------------
SUCHE, SCHREIBE für mich nicht lösbar!

Suche nach Parts in dem definierten Verzeichnis
und allen Unterverzeichnissen!
---------------------------------------------------------------------

Über Lösungsansätze oder Tipps würde ich mich sehr
freuen!

Mit freundlichen Grüßen,
Philipp

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

---

Wie wäre es denn, anstatt der Suche die FileSelectionBox zu verwenden?

Fette Grüße
    Stoffel

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

---

Hallo

Zu meinem Problem!

Habe ein Template für ein Spritzgußwerkzeug entwickelt!

In jedem Bauteil befindet sich ein Parameter names NOMENKLATUR.
Der Wert dieses Parameters wird aus einer Excel-Tabelle ausgelesen und
diesem Parameter zugeordnet.

Nun will ich ein VBA Programm schreiben dass den Parameterwert
jedes einzelnen Bauteils in das Eigenschaftsfeld "Nomenclature"
unabhängig von der Anzahl der Bauteile und des Bauteilnamens
überträgt.

Das Ganze brauch ich für eine generische Stückliste!

Somit ist der oben genannte Tipp mit der FileSelectionBox
für mich nicht anwendbar!

mfg
Ph.

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

---

Da hast du wohl recht, die FileSelectionBox hilft hier wirklich nix....

Nach der ersten Beschreibung dachte ich nur, dass es vielleicht helfen könnte.

Sorry und fette Grüße
    Stoffel

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