Thema Datum  Von Nutzer Rating
Antwort
23.06.2009 15:50:45 Markus
NotSolved
24.06.2009 11:46:23 Holger
NotSolved
Rot Aw:Aw:Dateien auswählen und verschieben
 24.06.2009 11:54:57 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
24.06.2009 11:54:57		 Views:
1130		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Dateien auswählen und verschieben
Hallo Holger

Vielen Dank genau das war das Problem....

Holger schrieb am 24.06.2009 11:46:23:

Hallo Markus,
FileCopy verlangt auch für das Ziel eine Dateiangabe, also z.B.
FileCopy Dateiname, Zielordner+Datei
Gruß
Holger


Markus schrieb am 23.06.2009 15:50:45:

Hallo zusammen ich bin leider ein VBA Noob und scheitere wohl deswegen schon an folgendem Problem:

Ich habe ein Excel Sheet mit zwei Spalten in Spalte A steht ein Dateinamen und in Spalte B steht der Pfad an dem die Date liegt. Ich möchte nun alle dateien, die in dem Excelsheet sind an einen anderen Ort kopieren und habe dies mit folgendem Code versucht:



'in diesem Ordner soll kopiert werden
Const Zielordner = "D:\"


Sub kopieren()
'letzte Zeile in Spalte A finden
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Schleife ab Zeile 1 bis zur letzten Zeile
For x = 1 To Zeilenanzahl
'Dateiname ermitteln
Datei = Range("A" & x)
'Odnername ermitteln
Ordnername = Range("B" & x)
'ggf. ein Backslash anhängen
If Right(Ordnername, 1) <> "\" Then Ordnername = Ordnername & "\"
'kompletten Dateinamen zusammensetzen
Dateiname = Ordnername & Datei
'kopieren
FileCopy Dateiname, Zielordner
Next x
End Sub


Leider kommt beim ausführen des Codes immer die Meldung Pfad nicht gefunden und dies kann ich mir nicht erklären. Bin für jede Hilfe dankbar.

Danke Markus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.06.2009 15:50:45 Markus
NotSolved
24.06.2009 11:46:23 Holger
NotSolved
Rot Aw:Aw:Dateien auswählen und verschieben
 24.06.2009 11:54:57 Markus
NotSolved