---

DUMMY.zip

Liebes Formum.  
Eine Auflistung der Dateien mitsamt der zugehörigen Pfade habe ich in einer Excel Datei angelegt. Je Zeile ein eigener Datensatz.
Nun möchte ich gezielt Dateien auswählen (hierzu nutze ich die 1. Spalte als Markierungsmöglichkeit), da es jedoch auch Dateien gibt, die ich nicht aus der Handgegeben habe, weil ich diese für eine evtl. Prüfung nutzen möchte habe ich in der 2. Spalte eine zusätzliche Abfrage eingebaut, die mich erinnern soll, dass diese(r) Film(e) nicht weitergeben werden soll.
Je nach Personenkreis oder Thema möchte ich eine Auswahl von Filmen nun einen bestimmten Personenkreis zur Verfügung stellen und nicht jedesmal einzeln die jewiligen Ordner durchforsten und per Hand die Filme rauskopieren.
aus einem Eintrag in diesem Forum habe ich mir ein Makro herausgenommen, welches fast genau meine Wünsche erfüllen würde. Leider funktioniert dies nicht. Meine 1. Spalte wird ignorriert (?) und die dateien werden nicht kopiert. Das Zielverzeichnis (welches in der 1. Zeile hinterlegt ist) wird zwar angelegt aber die Dateien werden nicht kopiert.
Meine Kenntnisse in VBA sind sehr dürftig und die meiste Zeit bin ich leider unterwegs und somit dauert es zeitweise schon etwas bis ich immer wieder mal ana einem PC mit Internetzugang sitze und mich dem Problem annehmen kann.
Ich bin sicher, dass es genügend Leute in diesem Forum gibt, die mir helfen können - die Frage ist nur "hat überhaupt jemand Lust dazu".
Ich würde mich freuen wenn ihr mir helfen könntet. Eine Dummy-Datei habe ich schon mal hier mit rangehängt.
Eurer Jumper  

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

---

anscheinend bin ich irgendjemand hier auf die Füße getreten. Sorry war nicht meine Absicht.
Trotzdem Danke für Eure Hilfe.
JM

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

---

Ich glaube nicht, dass Du anderen auf die Füße getreten hast, aber Du hast Dir da einen Code ausgesucht, der meines Erachtens viel zu komplex für Dich ist, und das "kann mir das mal einer erklären" eben nicht in 2 Sätzen geht. Ich würde Dir einfach vorschlagen, das ganze etwas einfacher zu gestalten, und die in VBA eingebauten Funktionen DIR und FILECOPY zu nutzen. Da kannst Du dann auch mit F1 weiter forschen. Hier mal ein Beispiel :

Code:

---

Sub copyfiles()
  DestinationFolder = Cells(1, 14).Value
  'Zielordner existiert?
  If Dir(DestinationFolder, vbDirectory) = "" Then MkDir (DestinationFolder)
  For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    'Zeile markiert?
    If Cells(i, 1).Value = "x" Then
      'kopieren erlaubt?
      If Cells(i, 2).Value = "JA" Then
        SourceFolder = Cells(1, 7).Value & Cells(i, 7).Value & "\"
        SourceFile = Cells(i, 8).Value & ".mpg"
        'Datei existiert?
        If Dir(SourceFolder & SourceFile) <> "" Then
          FileCopy SourceFolder & SourceFile, DestinationFolder & SourceFile
        Else
          MsgBox SourceFolder & SourceFile & " existiert nicht!", vbExclamation, "INFO"
        End If
      End If
    End If
  Next
End Sub

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Vielen Dank,
ich denke ich habe das Problem unterschätzt. Ich werde es mal gleich ausprobieren.
Danke
JM

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

---

Vielen Dank,

funktioniert prima und ich muss gestehen für mich sogar verständlich.
Sorry liebes Forum, dass ich Euch Nerven so in anspruch genommen habe und vielen Dank für Eure Unterstützung.
JM    

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