---

Folgendes Problem,

ich hab einen Ordner auf dem Server mit Hausnummer 1000 Zeichnungen(.dwg).
Ich möchte mir eine Excel Datei erstellen in der ich die Bezeichnung, Artikelnummer und Zeichnungsnummer der Zeichnung oder Datei sehe!
Hinter der Zeichnungsnummer soll ein Link auf die Zeichnung gesetzt sein, sprich wenn ich auf die Zeichnungsnummer"Zng.Nr. 0001" klicke soll die Zeichnung aufgehen!
Wie kann ich? und kann ich das überhaupt automatisieren oder importieren!
Sonst müsste ich jede Zeichnung/File im Excel mit der Hand verlinken. "ggääähhhhnnnn"

Vielleicht hat von Euch schon mal wer sowas gemacht??

Danke für Eure Tips.

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

---

Hallo,

kleiner Ansatz bzgl. der Links:

Code:

---

Option Explicit
Sub link_me()
Dim i&, x$
i = 1
x = Dir("c:\pfad\verzeichniss\*.dwg")
Do While x <> ""
With Sheets(1)
  .Cells(i, 1) = x
  .Hyperlinks.Add Anchor:=Cells(i, 1), Address:=x, TextToDisplay:=x
End With
i = i + 1
x = Dir
Loop
End Sub

---

HTH Nancy

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

---

Kann ich dir leider jetzt nicht sagen ob das eine Hilfe ist aber eher nicht,
da ich mich bei Makros nicht auskenn!

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

---

Zitat:

---

Original erstellt von projektkoordinator:
... und kann ich das überhaupt automatisieren oder importieren!
Sonst müsste ich jede Zeichnung/File im Excel mit der Hand verlinken. "ggääähhhhnnnn"...

---

Nun ich nahm an, Du wolltest dies interaktiv tun?
IMHO gehts dann nicht ohne Makro ... 

First Step:
- öffne eine neue Mappe
- via Alt + F11 wechsle in den VB-Editor
- unter Menue 'Einfügen' wähle 'Modul'
- in das nun erscheinende Fenster [Modul1] kopierst Du den Code

sooo ..., dann änderst Du die Zeile:

x = Dir("c:\pfad\verzeichniss\*.dwg")

entsprechend deinem Pfad ab.
Jetzt kannst den VBE schliessen und im der Excel-Umgebung via Extras/Makro oder Alt+F8 mal ausprobieren.

CU Nancy

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

---

Super das einfügen funkt, aber beim anklicken des Hyperlinks kommt die Fehlermeldung "Die Adresse dieser Web Site ist unzulässig. Überprüfen Sie die Adresse und versuchen Sie es erneut"

Die Adresse stimmt nicht, es steht nur der Name drinne, die Adresse zum Server hat er verloren????????

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

---

Silly me,

kommt drauf an, wo deine Mappe liegt, entweder Du speicherst sie mal in das Verzeichniss, wo auch die dwg's sind ...

oder

noch ein Versuch,
wieder x & y gem. Schema anpassen:
x = Dir("c:\daten\acad\*.dwg")
y = "c:\daten\acad\"

Code:

---

Option Explicit
Sub link_me2()
Dim i&, x$, y$
i = 1
x = Dir("c:\daten\acad\*.dwg")
y = "c:\daten\acad\"
Do While x <> ""
With Sheets(1)
  .Cells(i, 1) = x
  .Hyperlinks.Add Anchor:=Cells(i, 1), Address:=y & x, TextToDisplay:=x
End With
i = i + 1
x = Dir
Loop
End Sub

---

lg Nancy

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

---

besten Dank hat gefunkt.

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

---

Hey,

noch eine Frage wie kann ich die Dateien im Excel dann nach Namen sortieren, oder besser gesagt wie kann ich die Datein vom Explorer nach Namen sortiert ins Excel übertragen?

Danke für die Hilfe!

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

---

Mahlzeit,

Spalte markieren, Daten --> sortieren
geht nicht ??

Aus'm Explorer sortiert ist bissel kultig, wenn überhaupt

lg Nancy

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

---

Alles klar , passt schon einfach in einer anderen tabelle sortieren und dann einfügen!

Erst denken dann handeln!

Aber trotzdem danke!

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