Machbarkeit?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi #Name?!
Ich glaub, mit Drag & Drop wirds nich funktionieren.
Aber du könntest es so versuchen:
1. Man klickt erst mal immer wieder in ein und dieselbe Zelle, z Bsp A1
2. Nach Klick in A1 öffnet sich ein Datei-Auswahl-Fenster
3. In diesem Auswahl-Fenster wählst du erst das Verzeichnis aus, in dem sich deine PDF-Datei(en) befindet, und dann wählst ddu die PDF-Datei aus und klickst auf OK oder wie auch immer der Button heißt
(jetzt weiß der VBA-Code, um welche Datei es sich handelt, wo sie gespeichert ist, usw)
4. Sobald sich das Auswahl-Fenster geschlossen hat, öffnet sich ein Userform, welches per Optionbutton die zwei von dir vorgegebenen Speicherverzeichnisse anzeigt - du kannst nur einen dieser zwei Einträge auswählen.
Zusätzlich gibt es ein Textfeld, in das du den Dateinamen einträgst, mit dem die Datei gespeichert werden soll.
...mit Klick auf OK bestätigst du deine Auswahl, das Userform wird geschlossen
5. Jetzt kommt die Auswahl der Zelle, in die der Dateiname + Hyperlink eingetragen werden soll.
Entweder so, wie du es geschrieben hast; du klickst eine beliebige Zelle an, es erscheint eine Ja/Nein-Abfrage, ob wirklich in diese Zelle der Dateiname+HL eingetragen werden soll.
Wenn ja, dann trägt der VBA-Code Dateiname + HL in diese Zelle ein
...für die nächste Zelle beginnst du wieder bei Punkt 1
Oder es wird automatisch eine Zelle ausgewählt, z Bsp ab Zelle A3 fortlaufend. Das heißt, in A3 wird automatisch "dein" Dateiname + Hyperlink eingetragen. Wenn du nun wieder bei 1. beginnst, wird der "Wunschdateiname" + Hyperlink für die nächste, ausgewählte PDF-Datei in Zelle A4 eingetragen...usw
Wäre das ne Idee, die dich weiterbringt?
Ciao
Thorsten

Hallo Thorsten
wenn du die Datei anschaust dann weisst du warum ich den hyperlink an einer anderen stelle mache.
Ich hab mal 2 tabellenblätter herauskopiert aus der arbeitsmappe wo ich den code bräuchte.
sind eigentlich identische Tabellen nur der unterschied das es unterschiedliche Artikel gruppen sind.
In Spalte AA stehen die Speicherpfade auf die sollte sich der Code beziehen, fals die Datei mal verschoben wird oder der Ordner der Dateien, kann man das per Stammdateneingabe ändern. Ich hab das eingebaut da ich oft von Zuhause aus arbeite, dann war das fein, schnell die Pfade anpassen und alles funktionierte ohne Probleme.
AA8= Hauptpfad der Datei, drin liegen alle anderen Ordner
AA14= Downloadordner Pfad wo die PDFs reingelegt werden um sie später zuzuordnen
AA9= Beschläge Ordner Dort werden die Beschläge Dateien abgelegt wo der Hyperlink verweisst
AA10= Montageanleitungen Ordner Dort werden die Montageanleitungen Dateien abgelegt wo der Hyperlink verweisst
Spalte Q und S müssten per auswahl die Dateinamen eingetragen werden
Ich hoffe ich konnte es halbwegs verständlich erklären.
Hier der Link der Datei
https://www.dropbox.com/s/xl7mk6yw4003fpp/Mappe1.xls?dl=0
mfg
Jürgen

Private Sub UserForm_Activate() Dim varDatei As Variant ChDrive Range("ab8") ChDir Range("ab14") varDatei = Application.GetOpenFilename("PDF-Dateien (*.pdf), *.pdf") '("Alle-Dateien (*.*),* _ .*,", MultiSelect:=True) If varDatei = False Then MsgBox "Dateiauswahl abgebrochen.", vbInformation UserForm1.Hide Else TextBox2.Text = CStr(varDatei) '

Private Sub CommandButton3_Click() Dim varDatei As Variant ChDrive Range("ab8") ChDir Range("ab14") varDatei = Application.GetOpenFilename("PDF-Dateien (*.pdf), *.pdf") '("Alle-Dateien (*.*),* _ .*,", MultiSelect:=True) If varDatei = False Then MsgBox "Dateiauswahl abgebrochen.", vbInformation UserForm1.Hide Else TextBox2.Text = CStr(varDatei) '

dateiname = TextBox1.Text pfadname = Pfad & "\" & dateiname & Dateiendung If Len(Dir(pfadname)) > 0 Then ' Datei vorhanden -> rückfrage i = MsgBox("Datei bereits vorhanden, überschreiben?", vbYesNo) Exit Sub If i = 6 Then FileCopy TextBox2.Text, pfadname UserForm1.Hide End If If i = 7 Then Exit Sub End If Else ' Datei nicht vorhanden -> gleich speichern FileCopy TextBox2.Text, pfadname UserForm1.Hide End If

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Machbarkeit?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread